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PREFACE 


This  technical  report  was  prepared  by  the  Research  Staff  of  the 
Electrical  and  Computer  Engineering  Department,  School  of  Engineering,  The 
University  of  Alabama  in  Huntsville.  The  work  documented  in  this  report  was 
performed  by  Terry  N.  Long,  Timothy  A.  Palmer,  and  Peter  L.  Romine.  The  pur¬ 
pose  of  this  report  is  to  provide  documentatiori  of  technical  work  performed 
and  results  obtained  under  delivery  order  number  0044,  contract  number  DAAH01- 
82-D-A008.  Mr.  Terry  N.  Long  was  the  principal  investigator;  Dr.  M.  M.  Hallum, 
III,  Chief,  Systems  Evaluation  Branch,  was  the  technical  monitor;  and  Mr.  Mark 
Horton  also  from  the  Systems  Evaluation  Branch  of  the  Systems  Simulation  and 
Development  Directorate,  U.S.  Army  Missile  Command,  provided  technical  coor¬ 
dination. 

The  technical  viewpoints,  opinions,  and  conclusions  expressed  in  this 
document  are  those  of  the  authors  and  do  not  necessarily  express  or  imply 
policies  or  positions  of  the  U.S.  Army  Missile  Command. 
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I.  INTRODUCTION 


A  comprehensive  test  routine  was  required  for  verification  and  calibration 
of  the  Air  Defense  Digital  Avionics  Seeker  Enhancement  Technology  (ADDASET) 
hardware  built  by  the  Boeing  Company.  A  C-routine,  DEBUG,  and  its  supporting 
routines  provide  calibration  and  debug  capabilities  for  the  HAWK/ ADDASET  test 
bed.  The  programs  were  generated  using  a  Zilog  System-8000  UNIX-based  devel¬ 
opment  system  which  was  chosen  for  compatibility  with  the  Z8002-based  single 
board  computers  used  in  the  ADDASET  system.  Compatibility  is  such  that  com¬ 
piled  object  modules  and  executables  originating  on  the  System-8000  can  be 
transported  directly  to  the  computers  in  the  ADDASET  system. 

Operation  of  the  DEBUG  test  program,  which  is  a  very  versatile  multipur¬ 
pose  program,  is  described  in  Section  II.  Additional  special  purpose  routines 
were  developed  during  the  hardware  acceptance  phase  of  the  ADDASET  program  and 
are  briefly  described  in  Section  III.  Several  user  aids  were  also  developed 
or  identified  during  the  acceptance  process,  and  are  described  in  Section  IV. 
Conclusions  and  recommendations  are  presented  in  Section  V. 

II.  DEBUG  TEST  PROGRAM 

A.  Introduction 

The  DEBUG  test  program  is  a  versatile,  multipurpose  diagnostic  program 
that  can  be  used  for  operational  verification  or  calibration  of  ADDASET  hard¬ 
ware.  Program  execution  is  initiated  after  entering  "debug".  The  program  is 
fully  menu-driven  with  the  menu  illustrated  in  Table  1  being  displayed  ini¬ 
tially.  As  shown  by  the  menu,  five  separate  processes  can  be  performed.  The 
desired  process  can  be  chosen  by  the  proper  selection.  Output  and  input  dis¬ 
cretes  can  be  controlled  as  well  as  analog-to-digital  converters  (A/D's)  and 
digital-to-analog  converters  (D/A's).  There  is  also  a  routine  to  facilitate 
calibration  of  the  system's  analog  buffers. 

Discrete  I/O  control,  analog  I/O  control,  and  analog  buffer  card 
calibration  are  described  below.  Additionally,  some  notes  concerning  DEBUG 
software  design  are  provided. 


TABLE  1.  Opening  Menu 


0) 

Output  byte  to  discrete 

channel 

I) 

Input  byte  from  discrete 

channel 

A) 

A/D  input  routine 

D) 

D/A  output  routine 

C) 

Calibrate  analog-buffer 

card 

E) 

Exit  to  monitor 

Enter  selection  (0,I,A,D,C,E) : 


B.  Discrete  I/O  Control 


The  ADDASET  system  currently  supports  three  8-bit  discrete  input  and 
three  8-bit  discrete  output  channels.  The  digital  interface  is  required  for 
monitoring  and  controlling  the  four  binary  signals  originating  on  the  missile 
(Radar  Enable,  End  of  Sustain,  Pitch  Precession,  and  Antenna  Center  commands) 
and  the  eight  software  emulated  signals  (Radar 'Enable,  Head  Enable,  Elevon 
Enable,  Test  Mode,  Test  Select  1,  Test  Select  2,  Analog  Stabilization  Loop 
Closure,  and  Antenna  Center  Mode).  Each  discrete  has  a  corresponding  LED  , 
indicator  on  the  front  panel  of  the  interface  rack  to  display  the  status  of 
each  bit.  By  selecting  the  Input/Output  byte  option  from  the  main  menu,  the 
operator  can  either  read  discrete  input  channel  A  or  specify  an  arbitrary  bit 
pattern  for  output  on  a  selected  channel. 

Press  "0"  or  "o"  to  output  a  byte  on  a  discrete  channel.  The  system 
will  prompt  the  user  for  the  channel  number  (0-2)  and  the  data  in  hex  ( 0-FF) . 
After  entry,  the  output  data  is  also  echoed  to  the  terminal  screen. 

Press  "I"  or  "i"  to  input  data  from  discrete  channel  A.  Input  data  is 
displayed  on  the  terminal  screen  and  updated  continuously.  The  input  opera¬ 
tion  can  be  halted  at  any  time  by  pressing  the  ESC  key  on  the  terminal  key¬ 
board. 

C.  Analog  I/O  Control 

The  A/D  and  D/A  options  allow  the  operator  to  monitor  the  voltage  at 
any  of  24  analog  inputs  or  specify  an  arbitrary  voltage  for  output  on  any  of 
16  analog  outputs.  Voltages  are  displayed  on  the  terminal  screen  in  floating 
point.  Real  valued  voltages  can  also  be  entered  at  the  keyboard  for  output  on 
a  selected  analog  line. 

Press  "A”  or  "a”  to  convert  an  external  analog  voltage  signal  to  digi¬ 
tal  for  display  on  the  terminal  screen.  The  operator  is  prompted  to  select  an 
analog  input  channel  (0-23).  The  voltage  is  then  displayed  on  the  terminal 
screen  and  updated  continuously  until  the  ESC  key  is  pressed. 

Press  "D"  or  "d"  to  output  an  arbitrary  voltage.  The  operator  is 
prompted  to  enter  the  channel  number  (0-13)  and  the  output  data.  Output  data 
can  be  any  real  number  voltage  within  the  limits  of  the  power  supply  (^_10V). 
The  actual  output  value  is  echoed  to  the  terminal  after  output  on  the  selected 
channel . 

D.  Calibrate  Analog-Buffer  Card 

The  analog-buffer  card  is  the  analog  interface  between  the  missile  and 
the  ADDASET  rack.  The  buffer  card's  primary  function  is  for  adjustment  of 
biases  and  gains  associated  with  each  analog  I/O  line  on  the  interface  rack. 

It  also  provides  protection  for  missile  and  rack  components.  To  aid  in  cali¬ 
bration  of  the  analog-buffer  card,  the  calibration  option  provides  the  menu 
shown  in  Table  2. 
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TABLE  2.  Analog-Buffer  Card  Calibration  Menu 

G)  select  ground 
+)  select  plus(+)  voltage 
-)  select  minus (^0  voltage 
D)  display  A/D  channels 
M)  main  menu 


Select  ground,  plus  voltage,  and  minus  voltage  options  apply  the  cor¬ 
responding  signal  to  each  of  the  analog  inputs.  The  converted  voltage  can 
then  be  monitored  using  the  display  A/D  function.  In  this  configuration,  the 
analog  card  can  be  calibrated  by  adjusting  the  gains  and/or  biases  on  the  card 
until  the  correct  voltage  is  displayed  on  the  terminal.  By  pressing  "G",  "+", 
or  the  Inputs  to  the  buffer  card  are  either  grounded,  set  to  the  preci¬ 

sion  positive  calibration  voltage,  or  set  to  the  precision  negative  calibra¬ 
tion  voltage. 

To  monitor  a  particular  channel,  press  "D”  or  ”d"  and  input  the  de¬ 
sired  A/D  channel  number  (0-15)  when  prompted.  The  voltage  presented  to  the 
selected  channel  is  displayed  on  the  terminal  screen  and  is  updated  continu¬ 
ously  until  the  ESC  key  is  pressed.  The  escape  key  returns  the  user  to  the 
configuration  menu. 

Press  "M"  or  "m"  to  exit  the  calibration  menu  and  return  to  the 
opening  menu. 

E.  DEBUG  Software  Notes 

A  listing  of  DEBUG  code  is  presented  in  Appendix  A.  Some  Important 
pieces  of  information  can  be  derived  from  this  code.  First,  the  program's 
menu  format  can  be  examined  by  examining  the  arguments  of  the  "mess-c"  func¬ 
tions.  Also,  the  register  addresses  for  I/O  and  control  functions  can  be 
easily  found  in  the  code. 

A  large  portion  of  the  code  was  developed  to  facilitate  manipulation 
of  floating  point  numbers.  Some  of  the  routines  are  directly  callable  from  C 
and  some  are  not.  It  is  useful  to  note  that  they  can  be  used  for  a  variety  of 
applications. 

III.  ADDITIONAL  I/O  TEST  PROGRAMS 

DEBUG  resulted  from  the  combination  of  a  number  of  test  and  calibra¬ 
tion  programs.  Several  other  routines  were  developed  in  addition  to  those 
Included  in  DEBUG  and  they  perform  a  variety  of  useful  functions. 


1.  ADDISP 


ADDISP  is  particularly  useful  because  it  provides  for  the 
simultaneous  display  of  up  to  seven  of  the  23  A/D  channels.  The  user  must 
supply  the  number  of  channels  to  be  displayed  at  one  time  (1-7,  do  not  choose 
0) .  The  user  must  also  supply  which  ADC  (1-23)  should  be  displayed  in  each 
column  (0-6)  of  the  display.  The  user  can  then  choose  continuous  updates 
(press  C) ,  discrete  updates  (press  D) ,  or  pause  (press  P) .  A  listing  of  ADDISP 
is  provided  in  Appendix  B. 

2.  DARAMP 

DARAMP  is  also  very  useful  as  a  verification  tool.  It  generates 
a  ramp  output  to  a  block  of  D/A's.  The  user  must  supply  the  start  channel  and 
stop  channel  of  the  block  of  D/A's  to  be  exercised  as  well  as  the  start  value 
and  stop  value  of  the  ramp.  The  user  must  also  supply  the  step  size  of  the 
ramp  input  divided  by  sixteen.  Dynamic  operation  of  the  D/A's  can  be  examined 
by  using  this  routine,  and  each  discrete  level  can  be  evaluated.  A  listing  of 
DARAMP  is  provided  in  Appendix  C. 

3 .  ADTODA 

ADTODA  facilitates  simultaneous  output  to  a  D/A  channel  from  an 
A/D  channel.  This  permits  operation  verification  by  tying  pairs  of  channels 
together.  A  listing  of  ADTODA  is  provided  in  Appendix  D. 

4.  DSOUT 

DSOUT  simply  sequences  all  of  the  output  discretes.  The  program 
is  marginally  useful,  and  its  listing  is  provided  in  Appendix  G. 

5.  ACTIVITY 

ACTIVITY  exercises  the  operation  modes.  It  is  marginally  use¬ 
ful,  and  a  listing  of  the  program  is  provided  in  Appendix  F. 

IV.  EVALUATION/ CALIBRATION  AIDS 

A  detailed  review  of  ADDASET  documentation  revealed  that  wiring  infor¬ 
mation  exists  for  all  system  interfaces.  However,  the  information  exists  in 
various  forms  with  no  way  to  easily  trace  a  signal  from  beginning  to  end. 

Figure  1  was  developed  in  an  effort  to  summarize  the  configuration  and  to  pro¬ 
vide  a  starting  point  for  the  wiring  documentation.  ADDASET/HAWK  system  ele¬ 
ments  are  identified  along  with  individual  connectors.  Each  connector  has 
been  assigned  a  number,  and  they  are  provided  in  the  figure.  Additionally, 
the  types  of  wiring  and  the  numbers  of  lines  have  been  identified.  The  most 
useful  characteristic  of  the  figure  is  the  identification  of  the  documen¬ 
tation  that  corresponds  to  each  interface.  The  amount  of  interface  documented 
by  each  piece  of  documentation  and  the  set  numbers  of  the  corresponding  docu¬ 
mentation  are  also  noted. 


Another  verification  aid  is  provided  in  Table  3.  It  contains  scaling 
numbers  used  by  the  A/D's  and  D/A's.  However,  its  usefulness  may  be  marginal 
since  scaling  is  now  provided  within  DEBUG  code. 

V.  CONCLUSIONS  AND  RECOMMENDATIONS 

The  programs  and  aids  described  in  this  report  provide  a  comprehensive 
means  to  verify  ADDASET  hardware  operation  and  provide  ADDASET  calibration. 
They  have  been  used  in  the  acceptance  testing  phase  of  the  ADDASET  program  and 
have  been  used  to  calibrate  the  analog  components  of  the  system.  They  have 
also  been  used  to  monitor  missile  discretes  in  the  various  modes  of  operation. 

The  C  language  used  for  program  development  has  proved  to  be  very  advan¬ 
tageous  for  I/O  type  activities.  Therefore,  it  is  recommended  that  the 
language  be  used  for  all  ADDASET  programming  which  requires  user  or  hardware 
interfaces . 

The  System-8000  development  system  used  for  program  development  has  pre¬ 
sented  several  difficulties.  Consequently,  it  is  recommended  for  alternative 
systems  to  be  examined  for  program  development.  PC  type  systems  should  be 
carefully  considered. 

The  ADDASET  program  now  has  the  test  bed  required  to  begin  the  development 
of  digital  avionics  techniques  and  the  aids  required  to  maintain  that  test 
bed.  Therefore,  the  ADDASET  program  should  proceed  at  a  rapid  pace. 
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APPENDIX  A 

DEBUG 


/A******************************************************************** 


Main  program  to  allow  user  to  modify  D/A  and  output  discretes  a 
as  monitor  A/D  and  input  discretes. 

Functions  defined  in  debug. c  module: 

main()  C  routine  provides  for  the  men 

user  interfaced 


Externals  {  in_char,out^crlf ,mess^c, in_int,out  int,da  out,cio 
cio  outa,  cTo_outb,  cTo_outc,  cio_Tna , ad_Tn_a , ad_ 
f P_Tn , f p_out , f p_out_e , f peon , f pconv , f  div  } 


********************************************************************** 


extern  int  in_char ( ) , out_crl f ( ) , in  int ( ) , out_int ( ) , da_out ( ) ; 
extern  int  cio  init ( ) , cio_outa ( ) , cio  outb ( ) , cio_outc ( ) , cio_ina ( ) ; 
extern  int  ad_Tn_a ( ) , ad_in_b ( ) ; 

extern  int  mess_c(); 

extern  long  int  f p  in  ( ) , f p_out ( ) , f p_out  e ( ) , fpcon ( ) , f pconv ( ) , 

f div ( ) ; 


int 
int 
char 
long  int 

main  ()  { 

con3276p8 


i, j ,k,l, chan, data; 
array [30], *point ; 
c , d , e , go , ok ; 
con3276p8 , longl , long2 ; 


fpcon ("3276. 8") ; 


cio_init (1, 4000) ;  /*  sets  up  cio  for  input  to  cio2a  and  output 
/*  ciola,ciolb,ciolc  */ 


out_crlf();  /*  clear  a  little  bit  of  screen  off  */ 
out_crlf () ; 

mess_c( "General  Test  Program  VI. 0  ") ; 


go  »  'Y' ; 

while  (  go  <■»  '  Y ' )  { 
out_crlf ()  ; 


mess_c ( "O  -  output  byte  to  discrete  channel\n\r") ; 
mess_c("I  -  input  byte  from  discrete  channel\n\r" ) ; 
mess_c("A  -  A/D  input  routine\n\r") ; 
mess_c("D  -  D/A  output  routine\n\r" ) ; 
mess_c("C  -  Calibrate  analog-btiffer  card\n\rM)  ; 
mess_c("E  -  Exit  to  monitor  ") ; 

ok  -  'N'; 

while  (  ok  1-  * Y • )  { 
out_crlf () ; 

mess_c("Enter  selection  (0,I,A,D,C,E) 
c  -  wait_char(); 

if  ((c  —  '0')  |  (c  —  'I*)  |  (c  —  'A')  |  (c  —  *D'))  ok.  -  'Y 
if  ((c  —  'C')  |  (c— 'E'})  ok-'Y'; 

} 

out_crlf () ; 
switch (c)  { 

case  'O'  :  { 

out_crlf () ; 

mess_c( "Enter  discrete  channel  number  (0-2) 
ok- ' N ' ; 

while  (  ok  !-  'Y')  { 

chan  -  in_dec() ; 

if  ((chan  <-  2)  &  (chan  >-  0) )  ok  ='Y' 
if  (ok  —  'K')  { 

out_char(0x07) ; 
mess_c( "Invalid  channel.  ") ; 
mess_c("Try  again  ") ; 
out  crlf ( ) ; 

>  /*  if  */ 

)  /*  while  */ 
out  crlf () ; 
ok-~N ' ; 

while  (ok  i-  'Y')  { 

mess  c( "Enter  channel  ") ; 
out_Int (chan) ; 
aess_c("  data  (0-FF) 
data-in_int() ; 

if  ((data  >-  0)  &  (data  <-  256))  ok*’Y 
)  /*  while  */ 
out_crlf () ; 
switch  (chan)  { 

case  0:  cio_outa(data) ; 
break; 

case  1;  cio_outb(data) ; 
break; 

case  2:  cio_outc(data) ; 
break ; 

default:  break; 

}  /*  switch  */ 
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n«ss_pC("Data  (")  ; 
out_Int (data) ; 

ness  c(")  present  on  channel  n) ; 

out_Tnt(chan) ; 

out“crlf(); 

break; 

) 


case  ' I ' ;  ( 

out_crlf () ; 
out”crlf () ; 

mess_c( "Press  ESCape  to  exit  ")  ; 
out_crlf () ; 
out~crlf () ; 

mess_c ( " Input  discrete  data  ") ; 
out_crif ( ) ; 

mess_c("bO  bl  b2  b3  b4  b5  b6  b7") ; 
out_crl£() ; 

while  ( (c-in_char() )  !■  Oxlb)  { 
data”-  cio_ina ( ) ; 
out  char(OxOd) ; 

j-lT 

while  (  j  <«  128)  { 

k  ■  (j  &  data) ; 
if  (k  ™“0)  mess_c("0  ") ; 
if  (k  l»0)  ness  c("l  ") ; 
j  *-  2; 

) 

) 

out_crlf () ? 
break; 

) 

case  ' A ' :  { 

out  crlf ( ) ; 
ok»TN ' ; 

while  (ok  !-  ’Y')  { 

ness_c( "Enter  channel  number  (0-23)  : 
chan»in_dec() ; 

if  ((chan  <-  23)  &  (chan  >-  0))  ok='Y 
)  /*  while  */ 

out_crlf () ; 

ness_c("Press  Escape  to  exit  ") ; 
out_crlf () ; 
out_crlf ( ) ; 

mess  c("A/D  channel  ") ; 
out_Tnt(chan) ; 
out“crlf () ; 


while  ( (c-in_char() )  !-  Oxlb)  { 
point-array; 
ad  in_a ( point , 1 ) ; 
poTnt-array+12 ; 
ad_in_b( point, 1) ; 
da ta-array [ chan ] ; - 
out_char ( OxOd ) ; 
out~int (data) ; 
long2-data ; 
out_char ( *  • ) ; 

fp_out ( f  div ( fpconv ( long2 ) , con3276p8) )  ; 
) 

out_crlf () ; 
break ; 

) 


•D'  :  { 

out  crlf () ; 
ok  -'N* ; 

while  (ok  !-  'Y')  { 

meaa_c( "Enter  channel  number  (0-15) 
chan-in_dec ( ) ; 
out_crlf() ; 

if  ((chan  >-  0)  &  (chan  <-  15))  ok  »'Y 
if  (ok  —  'M*)  { 

out_char ( 0x07 ) ; 

aeaa_c( "Invalid  channel  number 
aeaa~c ( "Try  again”) ; 
out  crlf ( ) ; 

) 

} 

out_crlf () ; 
out_crlf () ; 

mean  c( "Enter  data  for  channel  ”) ; 

out_Tnt(chan) ; 

meaa_c("  ;"); 

data-in^int () ; 

array (oT-data; 

point-array; 

da_out (point, chan, 1) ; 

mass  c(”Data  (") ; 

out_Tnt ( array [ 0 ] ) ; 

mess  c(”)  present  on  channel  ”) ; 

out_Tnt (chan) ; 

out_crlf () ; 

break; 

) 


case  ' C '  :  { 

while (1)  { 

mess_c("\n\n\r") ; 

mess~c ( "Analog  buffer  card  calibration 
mess~c("\n\r") ; 

mess_c("G  -  select  ground\n\r")  ; 
mess~c("+  -  select  plus  voltage\n\r") ; 
mess_c("-  -  select  minus  voltage\n\r") 
mess_c("D  -  display'  A/D  channels\n\r") 
*ess_c("M  -  main  menu") ; 
c  -  wait_char() ; 
if  (c-»'M')  break; 
switch  (c)  { 
case  ' G ' :  { 

cio_outa(0x48) ; 

mess_c("\n\rTest  mode:  Ground\ 
break; 

} 

case  { 

cio_outa(0x78) ; 

mess_c("\n\rTest  mode:  Plus\n\ 
break; 

) 

case  ' - ' :  { 

cio_outa ( 0x58 ) ; 

mess_c("\n\rTest  mode:  Minus\n 
break; 

) 

case  ' D':  { 

mess_c ( " \n\rChannel  : " ) ; 
i-in~dec ( ) ; 
if  (I  >  15)  { 

mess_c("\n\rToo  big\n\r") ; 
break; 

) 

if  (i  <  0)  { 

mess_c("\n\rToo  small\n\r") 
break; 

) 

mess_c("\n\r Press  Escape  to  exit.\ 
while  ( (c»in_char() )  !«■  Oxlb) 
point-array; 
ad  in_a (point, 1) ; 
poInt-array+12 ; 
ad_in_b (point, 1) ; 
data-array [ i ] ; 
long2-data ; 
long2-fpconv(long2) ; 
long2-f div ( long2 , con3  2 
fp_out(long2) ; 
out_chrar(0x0d)  ; 

)  /*  while  */ 

break ; 

)  /*  case  'D'  V 


}  /*  witch  */ 
)  /*  while  */ 


break; 

)  /*  case  *C'  */ 

default :  go- ' N ' ; 

}  /*  switch  */  • 

}  /*  while  */ 

}  /*  aain  */ 


Functions  ds fined  in  inout_c . s  module: 

in_char  Assembly  routine  to  check  whether  a  character 

available  in  the  receive  buffer  register  of  th 
UART  from  the  keyboard. 

ENTRY :  none 

EXIT:  RLO  -  0,  if  np  character  was  available 
RLO  -  character,  otherwise 


vait_char  Assembly  routine  to  wait  for  a  character  to  be 

available  from  the  keyboard. 

ENTRY :  none 
EXIT:  RLO  -  character 


out^char  Assembly  routine  to  transmit  one  character  to 

console  port  (terminal) . 

ENTRY:  RL7  -  character  to  output 
EXIT :  none 


out_crlf  Assembly  routine  to  transmit  a  <CR><LF>  to  the 

console  port  (terminal) 

ENTRY :  none 
EXIT:  none 


mess_c  Assembly  routine  to  transmit  a  sequence  of  nul 

terminated  characters  to  the  console  port  (ter 
ENTRY:  R7  ■  address  of  start  of  string  buffer 
EXIT :  none 


out_int  Assembly  routine  to  convert  a  16-bit  integer  t 

ascii-hex  and  send  the  characters  to  the  conso 
port  (terminal) . 

ENTRY:  R7  ■  16-bit  integer  to  print 
EXIT :  none 


in_int  Assembly  routine  to  accept  a  16-bit  hex  intege 

constant  from  the  keyboard.  The  characters  are 
echoed  to  the  console  port  (terminal)  as  they 
input.  Any  out-of-band  characters  cause  an  err 
message  to  be  displayed  and  the  conversion  is 
again. 

ENTRY:  none 

EXIT:  R2  -  16-bit  result 

Externals  (  NONE  ) 


_inout_c  MODULE 

!  RAM  ALLOCATION  CONSTANTS  ! 

CONSTANT 

1  SCC  REGISTER  ADDRESSES  ! 
SCCOA  %FC21 

SCCDA  %FC31 

GLOBAL 

in_char  PROCEDURE 
ENTRY 


1  INPUT  A  CHARACTER  FROM  THE  TERMINAL  ! 


TINPUT: 

INB 

RLO , SCCOA 

! CHAR  RECEIVED?! 

BITB 

RLO, #0 

JR 

Z, TDONE 

! JP  IF  NOT! 

INB 

RLO , SCCDA 

1 INPUT  CHAR! 

RESB 

RLO, #7 

! CLEAR  PARITY  BIT! 

LDB 

RL2.RL0 

CLRB 

RH2 

RET 

TDONE: 

CLR 

R2 

RET 

END  in 

char 

wait_char  PROCEDURE 
ENTRY 


!  INPUT  A  CHARACTER  FROM  THE  TERMINAL  l 


TWAIT:  INB 

RLO , SCCOA 

! CHAR  RECEIVED?! 

BITB 

RLO , #0 

JR 

Z,  TWAIT 

! JP  IF  NOT! 

INB 

RLO , SCCDA 

! INPUT  CHAR! 

RESB 

RLO , #7 

! CLEAR  PARITY  BIT! 

LDB 

RL2 , RLO 

CLRB 

RH2 

RET 

END  wait  char 

_out_char  PROCEDURE 
ENTRY 

LDB  RLO ,RL7 

1  OUTPUT  A  CHARACTER  TO  THE  TERMINAL  ! 

TOUTCH:  PUSH  @R15,R1 

LDAR  Rl, $+6 

JR  TOCHNS 

POP  R1,@R15 

RET 

!  OUTPUT  CHARACTER  TO  TERMINAL  WITHOUT  USING  RAM 


TOCHNS: 

INB 

RHO , SCCOA 

BITB 

RHO , #2 

JR 

Z , TOCHNS 

TOUTIO : 

OUTB 

SCCDA, RLO 

JP 

@R1 

END  _out_char 

_out_crlf  PROCEDURE 
ENTRY 

LDB  RLO ,  # '  %R ' 

CALR  TOUTCH 

LDB  RLO,#'%L' 

JR  TOUTCH 

END  out  crlf 


_mess_c  PROCEDURE 
ENTRY 

print2:  Id  r6,@r7 

inc  r7,#2 

ldb  rll,rh6 

cpb  rll,#0 

ret  z 

calr  print3 

ldb  rll,rl6 

cpb  rll,#0 

ret  z 

calr  print3 

jp  print2 

print3:  inb  rhO,SCCOA 

bitb  rh0,#2 

jr  z, print 3 

outb  SCCDA, rll 

ret 


_out_int  PROCEDURE 
ENTRY 


out  nib: 


ldb 

rll,rh7 

call 

out  byte 

ldb 

rll,rl7 

call 

out_byte 

ret 

- 

t  • 

ldb 

rlO,rll 

andb 

rio, #%ofo 

srlb 

no,  #4 

call 

out_nib 

ldb 

rlO,rll 

andb 

rio, #%0f 

call 

out_nib 

ret 

addb 

rl0,#%0030 

cpb 

rio, #%3a 

jr 

c,out  nib2 

addb 

1  • 

rl0,#%07 

inb 

rhO,SCCOA 

bitb 

rho, #2 

jr 

2, out  nib2 

outb 
ret 
:  int 

SCCDA,rlO 

_in_int  PROCEDURE 
ENTRY 

!  this  routine  accepts  a  16  bit  integer  (unsigned)  from  the  console  ! 
!  and  converts  it  to  binary  ! 


iiO: 

clr 

r8 

t 

-clear  the  result  registers  ! 

clr 

r9 

iil: 

call 

wait  char 

Id 

r7 , r2- 

1 

echo  character  ! 

call 

out  char 

1 

to  console  ! 

cpb 

rl2,?%0d 

1 

was  it  a  CR  ?  ! 

jr 

nz,ii2 

1 

continue  if  not  ! 

Id 

r2,r8 

1 

else,  put  result  in  r2  1 

ret 

1 

and  return  ! 

ii2 : 

call 

atob 

1 

convert  ascii  to  binary  digi 

jr 

c,  ii3 

1 

go  if  error  ! 

sll 

r8 ,  #4 

1 

shift  left  4  places  ! 

add 

r8,r2 

1 

add  current  digit  to  accumul 

jP 

iil 

1 

go  for  more  ! 

atob: 

ldb 

rh2 , #0 

1 

zero  top  part  of  rl2  ! 

cpb 

rl2 ,  # '  0 ' 

1 

make  sure  not  too  small  ! 

jr 

c,atob2 

1 

go  if  too  small  ! 

cpb 

rl2,#'9'+l 

1 

see  if  alpha  offset  required 

jr 

c,atob3 

I 

go  if  not  required  ! 

cpb 

rl2, #'A' 

1 

see  if  between  9  and  A  1 

jr 

c , atob 2 

1 

go  if  so  ! 

cpb 

rl2, #'F'+1 

1 

see  if  >  F  ! 

jr 

nc,atob2 

1 

go  if  so  ! 

subb 

rl2, #%37 

1 

else,  subtract  alpha  offset 

resflg 

c 

1 

reset  error  flag  ! 

ret 

1 

and  return  ! 

atob2 

:  setflg 

c 

i 

indicate  error  1 

ret 

1 

and  return  ! 

atob  3 

:  subb 

rl2, #%30 

resflg 

c 

ret 

1 

and  return  ! 

ii3: 

Ida 

r7,H4 

■ 

tell  user  to  try  again  ! 

call 

mess  c 

1 

print  the  message  ! 

jP 

IiO 

END 

in  int 

114: 

ARRAY [‘BYTE] ' ?REDO%R%L%00 ' 

END 

inout_c 
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Functions  defined  in  rtc.s  module: 

cio_init  Assembly  routine  to  initialize  the  CIO  chips  w 

are  responsible  for  Real -Time-Clock  (RTC)  inte 
and  discrete  (bit)  I/O  to  the  Digital  Avionics 
interface  rack.  The  three  discrete  ports  on  th 
CIO  chip  are  initialized  as  follows: 

PORTA  input_only 
PORTB  input_only 
PORTC  input_only 

The  three  ports  on  the  second  CIO  chip  are  ini 
as  follows: 

PORTA  output_only 
PORTB  output_only 
PORTC  output_only 

(see  the  CIO  chip  manual  for  more  information) 

ENTRY :  none 
EXIT:  none 


rtc_init  Assembly  language  routine  which  is  installed  a 

interrupt  vector  for  RTC  interrupts.  The  routi 
calls  the  head_tracking_stabilization  loop  and 
returns.  This  routine  is  installed  in  the  PSAP 
the  28000  as  an  optional  function  of  CI0_INIT 
ENTRY:  none  (interrupt) 

EXIT :  none 


Assembly  language  routines  to  input- from/ outpu 
the  CIO  chips.  All  cio_inx  routines  acquire  in 
from  the  first  CIO  chip,  port  x.  All  cio_outx 
routines  send  output  to  the  second  CIO  chip 


ENTRY:  RL7  -  data  to  output  (for  output,  or 

none,  for  input) 

EXIT:  RL2  *  none  (for  output,  or 

8-bit  data,  for  input) 

Externals  {  mess_c,out_char,out_int,out_crlf , head, Cycle_Cntr  ) 


cio_xna 
cio_outa 
cio_inb 
cio_outb 
cio  outc 


cio  control  MODULE 


CONSTANT 


CIOl 

MICR1 

MCCR1 

CTCSR11 

CTCSR12 

CTMSR11 

CTMSR12 

CTCCR1L1 

CTCCR1L2  :« 

CTCCR1H1  :» 

CTCCR1H2 

CTTCR1L1  : » 

CTTCR1H1  :» 

CTTCR1L2 

CTTCR1H2 

CTIVR  :» 


%fd01 

%fd01 

CIOl+2 

CI01+20 

CIOl+22 

CIOl+56 

CIOl+58 

CIOl+34 

CIOl+38 

CIOl+32 

CIOl+36 

CIOl+46 

CIOl+44 

CIO 1+50 

CIOl+48 

CI01+8 


•  base  address  of  CIO-1  ! 

!  master  interrupt  control  register  ! 

!  master  configuration  control  register  ! 

!  Counter/Timer- 1  command  and  status  register 
l  ii  n  2  *•  "  "  " 

!  Counter/Timer- 1  mode  specification  register 
!  Counter/Timer-2  mode  specification  register 
!  Counter/Timer- 1  current  count  LSB  ! 

!  Counter/Timer-2  current  count  LSB  ! 

!  Counter/Timer-1  current  count  MSB  ! 

!  Counter/Timer-2  current  count  MSB  ! 

!  Counter/Timer-1  time  constant  register  LSB  ! 
!  Counter/Timer-1  time  constant  register  MSB  ! 
1  Counter/Timer-2  time  constant  register  LSB  ! 
!  Counter/Timer-2  time  constant  register  MSB  ! 
!  Counter/Timer-1  interrupt  vector  register  ! 


!  CIO  REGISTER  ADDRESSES  ! 


IVR1A 

- 

%FD05 

!  cio 

1, 

port  A,  interrupt  vector  register  ! 

IVR1B 

* 

%FD07 

!  cio 

1, 

port  B,  interrupt  vector  register  ! 

IVR1CT 

* 

%FD09 

!  cio 

1, 

counter/timer  interrupt  vector  regist 

DPPR1C 

= 

%FD0B 

!  cio 

1, 

port  C,  data  path  polarity  register  i 

DDR1C 

■ 

%FD0D 

!  cio 

1, 

port  C,  data  direction  register  ! 

SI0CR1C 

at 

%FD0F 

!  cio 

1, 

port  C,  special  I/O  register  ! 

PCSR1A 

%FD11 

!  cio 

1, 

port  A,  command  and  status  register  ! 

PCSR1B 

« 

%FD13 

!  cio 

1, 

port  B,  command  and  status  register  ! 

PDR1A 

m 

%FD1B 

!  cio 

1, 

port  A,  data  register  ! 

PDR1B 

m 

%FD1D 

1  cio 

1, 

port  B,  data  register  ! 

PCDR1 

m 

%FD1F 

!  cio 

1, 

port  C,  data  register  ! 

CVR1 

%FD3F 

!  cio 

1, 

counter/timer  current  vector  ! 

PMSR1A 

■ 

%FD41 

!  cio 

1, 

port  A,  mode  specification  register  ! 

PHSR1A 

%FD43 

!  cio 

lr 

port  A,  handshake  specification  regis 

DPPR1A 

■ 

%FD4  5 

!  cio 

1, 

port  A,  data  patch  polarity  register 

DDR1A 

■ 

%FD47 

!  cio 

1, 

port  A,  data  direction  register  ! 

SIOCR1A 

s 

%FD49 

!  cio 

1, 

port  A,  special  I/O  register  ! 

PMSR1B 

%FD51 

!  cio 

1, 

port  B,  mode  specification  register  ! 

PHSR1B 

= 

%FD53 

!  cio 

1, 

port  B,  handshake  specification  regis 

DPPR1B 

%FD55 

!  cio 

1, 

port  B,  data  path  polarity  register  ! 

DDR1B 

* 

%FD57 

!  cio 

1, 

port  B,  data  direction  register  ! 

SIOCR1B 

■ 

%FD59 

!  cio 

1, 

port  B,  special  I/O  register  ! 

MICR2 

» 

%FE01 

!  same  as  CIO-1  (above)  ! 

MCCR2 

■ 

%FE03 

IVR2A 

■ 

%FE05 

IVR2B 

at 

%FE07 

IVR2CT 

» 

%FE09 

DPPR2C 

m 

%FE0B 

DDR2C 

m 

%FE0D 

SI0CR2C 

- 

%F$0F 

PCSR2A 

m 

%FE11 

PCSR2B 

- 

%FE13 

PDR2A 

m 

%FE1B 

PDR2B 

m 

«FE1D 

PCDR2 

m 

%FE1F 

CVR2 

m 

%FE3F 

PMSR2A 

m 

%FE41 

PHSR2A 

m 

%FE43 

DPPR2A 

m 

«FE4S 

DDR2A 

m 

%FE47 

SIOCR2A 

m 

*FE49 

PMSR2B 

m 

%FE51 

PHSR2B 

m 

%FE53 

DPPR2B 

m 

%FE55 

DDR2B 

m 

%FE57 

SIOCR2B 

m 

%FE59 

EXTERNAL 

mess 

_C 

PROCEDURE 

"out_ 

char 

PROCEDURE 

"out” 

int 

PROCEDURE 

"out” 

crlf 

PROCEDURE 

_head 

PROCEDURE 

"Cycle  Cntr 

WORD 

GLOBAL 

. 

_int_ 

flag 

WORD; 

GLOBAL 

cio  init  PROCEDURE 


ENTRY 

!  on  entry  r7  contains  the  desired  time  constant  1 
!  first  initialize  the  interrupt  stuff  l 


di 

vi.nvi 

1  disable  vi,nvi  ! 

ldb 

outb 

rio, #%0l 
MICRl,rlO 

1  do  a  Cio  reset  ! 

!  by  setting  the  reset  bit  ! 

ldctl 

rl,psapoff 

1  current  PSAP  (should  be  %FD00)  ! 

add 

Id 

Id 

rl, #%1C 

r0,#%4000 

8rl,r0 

1  offset  to  FCW  location  ! 

1  setup  FCW  for  vectored  interrupts 
!  store  %4000  at  xxlc  in  PSAP  ! 

add 

Id 

rl, #02 

0rl , #_rtc_int 

I  add  to  to  get  next  address  ! 

!  set  vector  to  our  guy  1 

push 

.push 

§rl5,r7 

8rl5,r6 

1  save  r7  just  in  case  ! 

!  save  r6  just  in  case  I 
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ldb 

outb 


rlO, #%00 
MICRl,rlO 


!  set  HIE  (mast.  int.  en)  ! 
!  put  back  out  ! 


ldb 

rlO, #%82 

1 

enable  sqr  wave,  continuous  cycle  1 

outb 

CTMSR11, rlO 

I 

put  it  back  now  ! 

outb 

CTMSR12 , rlO 

ldb 

rlO, #00 

t 

zero  the  interrupt  vector  ! 

outb 

CTIVR, rlO 

1 

of  CT-3  CIO-1  1 

pop 

r6, #rl5 

1 

get  time  constant  for  CT-2  ! 

outb 

CTTCR1L2 , rl6 

1 

sat  up  CTTCR1L2  ! 

outb 

CTTCR1H2 , rh6 

pop 

r7,@rl5 

1 

set  up  time  constant  for  CT-1  ! 

outb 

CTTCR1L1, rl7 

1 

lsh  ! 

outb 

CTTCR1H1 , rh7 

1 

msh  ! 

ldb 

rlO, #%c0 

l 

set  IE  for  Counter/Timer  2  ! 

outb 

CTCSR12 , rlO 

1 

and  same  for  C/T  2  ! 

ldb 

rlO, #%e0 

1 

clear  IE  for  C/T  1  ! 

outb 

CTCSRll,rlO 

ldb 

rio, #%f7 

1 

enable  (timer-1  clocks  timer-2) ,  ! 

1 

ports  A, B,  and  C  of  unit  1  ! 
using  MCCR  1 

outb 

MCCRl,rlO 

1 

!  unit  1  initialization  ! 

1  set  MSR  Port  A  &  B  to  input  single  buffer  ! 


ldb 

rlO, t%10 

outb 

PMSRlA,rlO 

outb 

PMSRlB,rlO 

PCSR's, 

DPPR's,  and 

clr 

rO 

outb 

PCSRlA,rlO 

outb 

PCSR1B, rlO 

outb 

DPPRIA.rlO 

outb 

DPPRlB,rlO 

outb 

DPPR1C, rlO 

outb 

SIOCR1A, rlO 

outb 

SIOCR1B, rlO 

outb 

SIOCR1C, rlO 

!  set  Data  Direction  for  input  ! 

ldb  rlO, #%ff 

outb  DDR1A, rlO 

outb  DDR1B, rlO 

outb  DDR1C, rlO 
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.rH 


unit  2  initialization  ! 
claar  the  resat  bit  ! 


clr  rO 

outb  MICR2 , rlO 

sat  MSR  Port  A  &  B  to  output  single  buffered  ! 


ldb 

rlO, #%10 

outb 

PHSR2A, rlO 

outb 

PMSR2B, rlO 

PCSR's, 

DPPR's,  and 

clr 

rO 

outb 

PCSR2A,rlO 

outb 

PCSR2B, rio 

outb 

DPPR2A, rlO 

outb 

DPPR2B, rlO 

outb 

DPPR2C,rlO 

outb 

SIOCR2A, rlO 

outb 

SIOCR2B, rlO 

outb 

S10CR2C, rlO 

i  set  Data  Direction  for  output  ! 

outb  DDR2A,rlO 

outb  DDR2B,rlO 

outb  DDR2C, rlO 

!  enable  ports  A,  B,  &  C  ! 


ldb 

outb 

rl0,#%94 

MCCR2frlO 

ldb 

outb 

rlo,#%80 

MICRl,rlO 

l 

enable  master  interrupts  ! 

ldb 

outb 

outb 

rlO, #%06 
CTCSRll,rlO 
CTCSR12 , rlO 

i 

l 

set 

and 

trigger  and  gate  bits  C/T  1! 
C/T  2  ! 

ei 

ret 

vi , nvi 

1 

end 

of  initialization  ! 

_rtc_int  PROCEDURE 
ENTRY 


!  routine  to  service  the  rtc  interrupt (s)  ! 


Ida 

r egs_save ,  r  0 ,  #  1 5 

!  saye  the  context  at  entry 

ldb 

outb 

rl0,#%26 

CTCSR12 ,rlO 

1  clear  XUS, IP  bits  of  C/T  2 

1 

call 

_head 

not  for  debug  ! 

1 

inc 

_Cycle_Cntr 

not  for  debug  ! 

1dm 

rO , regs_save ,#15 

!  restore  context  ! 

iret 

!  return  from  interrupt  ! 

END  _ 

_rtc_int 

regs 

_save : 

ARRAY  [16  WORD] 

I 


_cio_ina  PROCEDURE 
ENTRY 

!  input  port  A  ! 

inb  rl2 , PDR1A 
ret 

END  cio  ina 


cio_outa  PROCEDURE 
ENTRY 

!  output  port  A  ! 

outb  PDR2A, rl7 
ret 

END  cio  outa 


_cio_inb  PROCEDURE 
ENTRY 

l  input  port  B  ! 

inb  rl2 , PDR1B 
ret 

END  cio  inb 
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cio  outb  PROCEDURE 
ENTRY 

!  output  port  B  ! 

outb  PDR2B, rl7 
rat 

END  cio  outb 


_cio_outc  PROCEDURE 
ENTRY 

1  output  port  C  ! 

outb  PCDR2 , rl7 

rat 

END  _cio_outc 
END  cio  control 
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Functions  defined  in  ad_da.s 

ad_in_a  Assembly  language  subroutine  to  acquire  12  bit 

data  from  first  sat  of  12  A/0  channels.  All  12 
channels  are  converted. 

ENTRY :  R7  -  address  of  data  buffer  (must  cont 
at  least  24  bytes  of  free  space) 
R6  -  1  if  first  call,  0  if  not 
EXIT :  none 


ad  in  b 


(Same  as  ad_in_a ,  except  for  channels  12-23) 


da_out  Assembly  language  subroutine  to  output  12-bit 

data  to  the  D/A  converter. 

ENTRY:  R7  «  address  of  data  buffer 
R6  -  Start  channel  (0-15) 

R5  ■  Number  of  channels  (0-15) 

EXIT:  none 


Externals  (  cio_outc , cio^outb , cio_outc  ) 


ad  da  MODULE 


CONSTANT 

!  A  D  INPUT  BASE  ADDRESS  ! 


BASE1 

-  %f 600 

BASE2 

-  %f 610 

CSRL1 

-  BASE1 

SCRL1 

-  BASE1+2 

MARL1 

-  BASE1+4 

DREG1 

-  BASE1+6 

CSRL2 

*  BASE2 

SCRL2 

-  BASE2+2 

MARL2 

-  BASE2+4 

DREG2 

-  BASE2+6 

RDY 

-  15 

PND  . 

-  2 

CAT 

-  1 

FST 

-  0 

!  because  of  byte  swap  ! 
t  when  doing  word  1-0  1 


!  D  A  OUTPUT  CHANNEL  BASE  ADDRESS  ! 


BASE 

»  %f710 

CHAN0 

-  BASE 

CHAN1 

*  BASE+2 

CHAN  2 

-  BASE+4 

CHAN  3 

■  BASE+6 

CHAN4 

-  BASE+8 

CHANS 

*  BASE+10 
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CHAN 6  :« 

BASE+12 

CHAN7 

BASE+14 

BASE3 

%f720 

CHAN 8  :« 

BASE3 

CHAN  9 

BASE3+2 

CHAN 10 

BASE3+4 

CHAN 11 

BASE3+6 

CHAN 12 

BASE3+8 

CHAN 13 

BASE3+10 

CHAN 14 

BASE3+12 

CHAN 15 

BASE3+14 

EXTERNAL 

_cio_outc  PROCEDURE 

_cio_outb  PROCEDURE 

_cio_outa  PROCEDURE 

GLOBAL 

_ad_in  a  PROCEDURE 
ENTRY 

2  r7  has  the  load  addrass  for  data  (passed  from  C)  1 
!  r6  has:  1  if  start/ stop  channels  are  to  be  updated  1 
!  0  if  start/stop  channels  have  already  been  initialized  2 

!  check  for  first  time  thru  1 


Id 

r4,r6 

1 

init  bit  • 

cp 

r4,  #1 

! 

1  means  re-init  • 

jr 

z , ad07 

i 

go  if  init  desired  ! 

in 

rl.CSRLl 

bit 

rl, #PND 

jr 

Z,ad37 

ad07: 

Id 

ro, #%0010 

l 

output  init  bit  to  control 

out 

CSRLl.rO 

adlO: 

in 

rl,CSRLl 

Iwait  for  CAT  to  clear  ! 

bit 

rl.#CAT 

jr 

nz , adlO 

Id 

ro, #%oioo 

! 

write  1  to  scan  ! 

out 

SCRLl.rO 

ad20: 

in 

rl.CSRLl 

j 

wait  for  CAT  to  clear  ! 

bit 

rl,#CAT 

jr 

nz,ad20 

Id 

ro,#%oooo 

j 

write  0  to  scan  ! 

out 

SCRLl , ro 

ad25 : 

in 

rl.CSRLl 

! 

wait  for  CAT  to  clear  ! 

bit 

n,#CAT 

jr 

nz,ad25 

i 

Id 

rl, #%0800 

1 

sat  SCN  bit  in  control  ! 

out 

CSRL1 , rl 

Id 

ri,#%0072 

j 

set  pacer  to  100KH  2 

out 

MARLl.rl 

ad30: 

in 

rl.CSRLl 

1 

wait  for  scan  to  clear  ! 

bit 

n,#CAT 

jr 

nz,ad30 

Id 

r6, #%0b 

t 

do  all  12  channels  1 

out  SCRL1 , r6 

ad35:  in  rl,CSRLl 

bit  rl,#CAT 

jr  nz , ad35 

ad37 :  Id  rl, #40900 

out  CSRL1 , rl 

ad40:  in  rl,CSRLl 

bit  rl,#C  r 

Id  r3 , r7 

ad401:  in  rl,CSRLl 

bit  rl , #RDY 

jr  z,ad401 

in  rO,  DREG1 

exb  rhO,rlO 

Id  @r3 , rO 

inc  r3 ,  #2 

djnz  r2 , ad401 

rat 

!  and  of  naw  section  ! 

END  ad  in  a 


_ad_in_b  PROCEDURE 
ENTRY 


!  check 

for 

first  time  thru  ! 

Id 

r4,r6 

1 

init  bit  ! 

cp 

r4,  #1 

1 

see  if  re-init  desired  ! 

jr 

z,ad4f 

in 

rl , CSRL2 

bit 

rl, #PND 

jr 

z , ad77 

ad4f : 

Id 

ro,#%ooio 

1 

output  INIT  bit  to  control 

out 

CSRL2 ,  rO 

ad50 : 

in 

n,CSRL2 

1 

wait  for  CAT  to  clear  ! 

bit 

n,#CAT 

jr 

nz , ad50 

Id 

ro,#%oioo 

1 

write  1  to  scan  ! 

out 

SCRL2 , rO 

ad60: 

in 

rl, CSRL2 

1 

wait  for  CAT  to  clear  ! 

bit 

rl , #CAT 

jr 

nz , ad60 

Id 

rO, #*0000 

1 

write  0  to  scan  ! 

out 

SCRL2 , rO 

ad65 : 

in 

rl , CSRL2 

1 

wait  for  CAT  to  clear  ! 

bit 

rl , f CAT 

jr 

nz,ad65 

Id 

rO, #*0800 

J 

set  SCN  bit  in  control  ! 

out 

CSRL2 , ro 

Id 

rl,#%0072 

I 

set  pacer  to  100KH  ! 

out 

MARL2 , rl 

ad70 : 

in 

rl , CSRL2 

1 

wait  for  CAT  to  clear  ! 

bit 

n,#CAT 

!  wait  for  CAT  to  clear  ! 

!  set  SCN  and  software  trigger 

!  wait  for  CAT  to  clear  ! 
z,a!  netiocodad4  Id  r2,#%0C 

!  start  address  from  C  ! 


!  loop  till  all  data  read  ! 


jr 

nz,ad70 

Id 

r6, #%0b 

out 

SCRL2,r6 

ad75 : 

in 

rl , CSRL2 

bit 

rl,#CAT 

jr 

nz,ad75 

ad77 : 

Id 

rl, #%0900 

out 

CSRL2 , rl 

ad80 : 

in 

rl, CSRL2 

bit 

rl , #CAT 

jr 

nz , ad8 0 

!  new 

section 

t 

adSOO 

:  Id 

r2, #%0c 

Id 

r3,r7 

ad801 

:  in 

n,CSRL2 

bit 

rl , #RDY 

jr 

z,ad801 

in 

r0 , DREG2 

exb 

rh0,rl0 

Id 

8r3 , rO 

inc 

r3 ,  #2 

djnz 

ret 

r2 , ad801 

END  _ 

ad_in_b 

da  out 

PROCEDURE 

ENTRY 

!  r7  has  the 

data  address, 

r6  has 

daloop: 

cp 

r5,  #0 

i 

ret 

z 

i 

Id 

r3  ,r6 

i 

inc 

r6,  #l 

Id 

r2 , 8r7 

i 

inc 

r7,  #2 

i 

calr 

outda 

i 

* 

dec 

r5,  #1 

i 

jr 

daloop 

! 

outda : 

cp 

r3 ,  #3 

jr 

gt,doit 

push 

8rl5,r7 

1 

Id 

r7,#2 

i 

call 

cio  outc 

Id 

r7,r3 

t 

and 

r7 ,  #3 

i 

call 

cio  outb 

Id 

r7,  #3 

i 

call 

cio  outc 

pop 

r7,@rl5 

doit: 

sll 

r3 ,  #1 

i 

Id 

r4,#%f710 

i 

!  wait  for  CAT  to  clear  ! 


1  set  SON  and  software  trigger 
I  wait  for  CAT  to  clear  ! 


!  end  of  routine  ! 


the  start  channel,  r5  has  the  #  chan 
see  if  done  ! 
return  if  done  ! 
next  channel  number  ! 

get  next  data  ! 
point  to  next  data  ! 
output  one  word  ! 
decrement  channel  counter  ! 
loop  till  done  ! 


save  r7  for  now  ! 

set  write  enable  of  74LS138  ! 

output  channel  number  to  cio  ! 
only  allow  channels  0-3  ! 

disable  74LS138  ! 


multiply  channel  by  2  ! 
start  address  of  D/A  channels  ! 
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add 

exb 

out 

ret 

END  da  out 


r4 ,  r3 
rh2 , rl2 
@r4,r2 


!  add  offset  to  start  address  ! 

!  exchange  bytes  for  output  ! 

'  output  the  word  to  the  Dig-Analog  co 


end  of  the  routine 


i 


END  ad  da 


Functions  defined  in  fp_subs.s  module: 

All  of  the  below  subroutines  are  used  to  manipulate 
floating  point  data. 


"(^-interface  routines 

The  following  routines  are  directly  callable  from  "C". 
A  brief  summary  of  the  function  and  an  example  syntax 
is  given  below. 


fadd  add  two  floating_point  numbers 

ex:  fp_result  »  fadd ( fpl , fp2 ) ; 

fmul  multiply  two  floating  point  numbers 

ex:  fp_result  ■  fmul ( fpl , fp2 ) ; 

fdiv  divide  two  floating  point  numbers  (fpl/fp2) 
ex:  fp__result  *  fdiv ( fpl,  fp2)  ; 

fcmp  compare  two  floating  point  numbers  and  returns  a  longw 
result: 

comparison  returns 


fpl  <  fp2  -1 

fpl  »  fp2  0 

fpl  >  fp2  1 

ex:  long_result  *  fcmp(fpl, fp2)  ; 

fint  extracts  the  integer  portion  of  a  floating  point  numbe 
returns  the  result  as  a  longword  integer, 
ex:  long_result  *  fint (fpl) ; 

frac  extracts  the  fractional  portion  of  a  floating  point  nu 
ex:  fp_result  -  frac(fpl); 

fsub  subracts  two  floating  point  numbers, 
ex:  fp_result  *  fsub ( fpl , fp2 ) ; 

fp_in  allows  keyboard  input  of  floating  point  number.  The  ro 
accepts  standard  forms  for  input  (including  exponentia 
ex:  fp_result  ®  fp_in(); 

fp_out  displays  a  floating  point  number  in  non-exponential  fo 
ex:  fp_out(fpl); 

fp_out_e  displays  a  floating  point  number  in  exponential  forma 

fpconv  converts  a  long_integer  to  floating  point  representati 
ex:  fp_result  *  fpcon ( long_int) ; 


fpcon 


obtains  the  floating  point  equivalent  of  a  character  s 
expression. 

ex:  fp_result  -  fpcon ( "-10 . 256E-3 ")  ; 


|  Assembly-interface  routines 

|  The  following  routines  are  not  directly  callable  from 

|  "C".  A  brief  summary  of  the  function  is  given  below. 

|  In  each  case: 

I  ENTRY: 

!  RR4  -  floating  point  argument  1 

I  RR2  *  floating  point  argument  2  (optional) 

|  EXIT: 

|  RR2  *  resulting  number  (may  be  floating  point 

|  longword_integer 


fp  add 

add 

RR2  -  RR4+RR2 

(fp  re 

fp  mult 

multiply 

RR2  -  RR2*RR4 

(fp  re 

fp  div 

divide 

RR2  -  RR2/RR4 

(fp  re 

fp  frac 

fraction 

RR2  -  frac (RR2 ) 

(fp  re 

fp  cmp 

compare 

RR2  -  sgn (RR2-RR4 ) 

( long 

fp_int 

integer 

RR2  -  int (RR2 ) 

(long 

1 

Assembly-utility 

routines 

The  following  routines  are  not  directly  callable  from 
"C".  A  brief  summary  of  the  function  is  given  below. 


+ 


split 

muljnant 

div_mant 

unsplit 


separates  the  "sign" "exponent" ,  and  "mantissa 
multiplies  two  mantissas  together 
divides  two  mantissas 

recombines  the  "sign" , "exponent" ,  and  "mantiss 


Externals  (  out_dec, out_char, in_string, out_crlf , mess_c, out_int  ) 


A"  27 


fp_subs  MODULE 


EXTERNAL 


_out_dec 
_out_char 
_in_string 
_out_crlf 
_mess_c 
out  int 


procedure 

procedure 

procedure 

procedure 

procedure 

procedure 


GLOBAL 


fadd  PROCEDURE 


ENTRY 


!  C  callable  procedure  to  perform  floating  point  addition  of 
1  two  numbers  (must  be  floating  point)  and  return  the  result 


!  ENTRY: 

!  rr6 

!  rr4 

i 

!  EXIT: 


addend 

additive 


=  addend  +  additive 


ldl 

call 

ret 

END  fadd 


rr2 , rr6 
fp_add 


1  substitute  rr2  for  rr6  i 
!  which  is  used  in  fp_add  I 
!  already  in  rr2  ! 


fmul  PROCEDURE 


ENTRY 


1  C  callable  procedure  to  perform  floating  point  multiplicatio 
!  of  two  numbers  (must  be  floating  point)  and  return  the  resul 


1  ENTRY: 

!  rr6  »  multiplicand 

!  rr4  ■  multiplier 

!  EXIT: 

!  rr2  *  multiplicand  *  multiplier 


ldl 

call 

ret 

END  fmul 


rr2  r  rr6 
fp_mult 


!  rr2  for  fp_mult  ! 


_fdiv  PROCEDURE 
ENTRY 

!  C  callable  procedure  to  perform  floating  point  division  ! 

1  of  two  numbers  (must  be  floating  point)  and  return  the  resul 

I  ENTRY: 

rr6  »  dividend 
rr4  -  divisor 

EXIT: 

rr2  *  dividend/divisor 

ldl  rr2 , rr6 

call  fp_div 

ret 

END  fdiv 


_fcmp  PROCEDURE 
ENTRY 

1  C  callable  procedure  to  compare  two  floating  point  numbers 
!  A  and  B  and  return  either  a  -1,  0,  or  a  l  to  represent: 

!  A<Bf  A=B,  and  A>B,  respectively 

!  ENTRY: 

rr6  *  A 
rr4  =»  B 

EXIT: 

rr2  -  -1,0,1 

ldl  rr2 , rr6 

call  fp_cmp 

ret 

END  _fcmp 


I 


fint  PROCEDURE 


ENTRY 

!  C  callable  routine  to  return  a  LONG  INTeger  representing  ! 

!  the  integer  part  of  a  floating  point  number  ! 

!  ENTRY: 

rr6  *  floating  point  number  of  return  integer  part  of 

EXIT: 

rr2  *  integer  part  of  rr6  (not  in  floating  point) 

ldl  rr2 , rr6 

call  fp_int 
ret 

END  fint 


_frac  PROCEDURE 
ENTRY 

!  C  callable  procedure  to  return  the  fractional  part  of  a  ! 

!  floating  point  number  as  a  floating  point  number  ! 

S  ENTRY: 

rr6  *  floating  point  number  (input) 

EXIT: 

rr2  -  fractional  part  of  input  (floating  point  format) 

ldl  rr2 , rr6 

call  fp_frac 

ret 

END  frac 
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fsub  PROCEDURE 


ENTRY 


!  C  callable  procedure  to  perform  subtraction  on  two  floating 
!  point  numbers  ! 


ENTRY: 


EXIT: 


r4 , #%8000 
rr2 , rr6 

fp_add 


subtrahend 

subtractor 


subtrahend  -  subtractor 

000  !  make  subtractor  negative  ! 


ret 

END  fsub 


!  and  add  to  negated  subtracto 
!  the  end  ! 


fp_add  PROCEDURE 
ENTRY 


s 

!  rr2  contains 

bit  encoded 

data  to  add  to 

rr4  ! 

s 

’-1 

!  this  routine 
result  in  rr2 

destroys  all 

j 

other  register  data  and  returns  the 

ldl 

argl,rr2 

! 

save  addend  2 

< 

ldl 

arg2,rr4 

i 

save  additive  2 

! 

cpl 

rr2,#0 

t 

if  addend  is  zero,  then  2 

jr 

nz ,  fpadl 

i 

return  additive,  else  jump  ! 

?! 

’i 

ldl 

rr2 ,  rr4 

i 

result  is  additive  if  zero  ! 

ret 

fpadl: 

i 

done  2 

cpl 

rr4 , #0 

i 

if  additive  is  zero,  then  ! 

jr 

nz, fpad2 

i 

return  addend,  else  jump  2 

ret 

i 

additive  was  zero,  so  result 

V 

i 

fpad2 : 

call 

» 

split 

i 

is  already  in  rr2  2 

5» 

testl 

argl 

i 

test  for  negative  mant  2 

• 

jr 

pi, fpad3 

i 

go  if  positive  2 

;; 

ldl 

rr6, #0 

i 

make  negative  by  subtraction 

subl 

rr6 , rrio 

i 

and  move  result  back  into  rr 

* 

ldl 

rrlO, rr6 

i 

done  2 

f pad3 : 


fpad4 : 

testl 

jr 

ldl 

subl 

ldl 

arg2 

pi, fpad4 
rr6, #0 
rr6 , rr8 
rr8 , rr6 

!  same  as  for  addend  ! 

cp 

rl2,rl3 

!  while  (aexp  <>  bexp  )  ...  ! 

jr 

z , f pad7 

!  go  if  equal  ! 

jr 

gt, fpad5 

!  go  if  aexp  >  bexp  ! 

inc 

rl2, #1 

!  increment  aexp  ! 

sral 

rrio, #1 

!  divide  amant  by  2  ! 

f pad5 : 

jr 

fpade 

!  skip  next  part  ! 

inc 

rl3 , #l 

1  increment  bexp  1 

sral 

rr8 , #l 

!  bexp  -  bexp/2  ! 

f pad6 : 

jr 

fpad4 

!  end  while. ...  ! 

fpad7 : 

cpl 

rrio, #0 

!  if  one  was  shifted  out  ! 

jr 

ldl 

ret 

nz , f pads 
rr2 , arg2 

!  go  if  amant  is  not  zero  ! 

fpad8 : 

cpl 

jr 

ldl 

ret 

rr8,#o 
nz , f pad9 
rr2 , argl 

!  see  if  other  shifted  out  ! 

f pad9 : 

addl 

rr8 , rrio 

!  add  mantissas  ! 

!  now. 

resulting  nantissa  is 

in  rr8,  resulting  exponent  in  rl3 

Id 

sign, #0 

!  zero  negative  sign  flag  ! 

testl 

rr8 

!  see  if  mantissa  negative  ! 

jr 

pi, fpadlO 

!  go  if  positive  ! 

ldl 

rr6, #0 

!  else  make  positive  1 

subl 

rr6 , rr8 

!  and  put  back  into  rr8  ! 

ldl 

rr8 , rr6 

!  done  ! 

Id 

sign, #%ff 

!  set  negative  sign  flag  ! 

Id  rl2,sign 

call  unsplit 


!  put  sign  in  r!2  for  unsplit 


argl: 
arg2 : 
sign: 


wval 

wval 

wval 

wval 

wval 


0 

0 

0 

0 


split  PROCEDURE 
ENTRY 

!  rr2  is  arg  1,  rr4  is  arg  2  ! 


!  results:  rl2  a 
rl3  > 
rrlO* 
rr8  » 
argl 
arg2 


exp (arg  1) 
exp (arg  2) 
mant (arg  1) 
mant (arg  2) 

■  rr2 

■  rr4  ! 


from  RR2 
from  RR4 
from  RR2 
from  RR4 


and 

r2 , #%7f oo 

1 

mask  out  exponent  of  argl 

exb 

rl2 , rh2 

1 

place  into  lower  half  1 

sub 

r2 , #32 

1 

subtract  off  bias  ! 

Id 

rl2 ,  r2 

1 

save  in  rl2  ! 

and 

r4,#%7foo 

1 

mask  out  exponent  of  arg2 

exb 

rl4,rh4 

1 

place  into  lower  half  ! 

sub 

r4, #32 

1 

subtract  off  bias  ! 

Id 

rl3,r4 

) 

save  in  rl3  ! 

ldl 

rr2 , argl 

i 

get  uncorrupted  argl  back 

and 

r2 , #%ff 

1 

only  need  lower  8  bits  ! 

or 

r2 , #%loo 

! 

set  hidden  bit  ! 

ldl 

rrlO ,  rr2 

i 

save  arg2  mant  in  rrlO  ! 

ldl 

rr4 , arg2 

i 

same  as  above  ! 

and 

r4 , #%ff 

or 

r4, #%100 

ldl 

rr8 , rr4 

i 

save  additive  mant  in  rr8 

ret 

END  split 


GLOBAL 


fpjnult  PROCEDURE 
ENTRY 


!  rr2  contains  bit  encoded  data  to  multiply  ! 

1  by  rr4.  This  routine  destroys  all  other  register  ! 
!  data  and  returns  the  answer  in  rr2.  ! 


ldl 

argl,rr2 

1 

save  multiplicand  ! 

ldl 

arg2 , rr4 

J 

save  multiplier  ! 

cpl 

rr2, #0 

1 

if  zero  then  ! 

jr 

nz, fpmull 

1 

return  zero,  else  jump 

ldl 

rr2, #0 

1 

result  is  zero  ! 

ret 

I 

done  1 

f pmul 1 : 

cpl 

rr4 , #0 

! 

if  zero  then  i 

jr 

nz , fpmul2 

1 

return  zero  else  jump 

ldl 

rr2 , #0 

1 

result  is  zero  i 

ret 

1 

done  ! 

fpmu!2 : 

call 

split 

1 

mask  out  exp'  and  mant 

!  rl3  is  exp 

and  rrlo  is  mant 

of  multiplicand  ! 

!  rl2  is  exp  and  rr8  is  mant  of  multiplier  ! 


cpl 

rr8 , #0 

jr 

nz, f pmul 3 

ldl 

ret 

rr2, #0 

f pmul  3 : 

cpl 

mo,  #0 

jr 

nz, f pmul 4 

ldl 

ret 

rr2 , #0 

f  pmul  4 : 

ldl 

rr4 , rr8 

ldl 

rr6,rrl0 

call 

_mul_mant 

Id 

sign, #0 

testl 

argl 

jr 

It, fpmulS 

testl 

arg2 

jr 

It, fpmul6 

!  if  zero  then  ! 

!  return  zero,  else  jump 
!  result  is  zero  ! 

!  done  ! 


!  if  zero  then  ! 

!  return  zero,  else  jump 
!  result  is  zero  ! 

1  done  1 


!  set  up  to  multiply  the 
!  mantissi  together  ! 

!  returns  result  in  rr2  ! 

!  start  test  for  sign  ! 

!  check  to  see  if  ! 

!  result  is  positive  or  ! 
!  and  set  sign  bit  ! 

!  accordingly  ! 


jr 

fpmul7 

fpmul5: 

testl 

arg2 

jr 

gt, fpmul6 

jr 

fpmul7 

fpmul6: 

Id 

sign, #%ff 

fpmul7 : 

ldl 

rr8 ,  rr2 

add 

rl3,rl2 

Id 

r 12, sign 

call 

unsplit 

ret 

END  fp_mult 

GLOBAL 

_mul_mant  PRC : I dure 
ENTRY 


slal 

rr6, #6 

slal 

rr4, #6 

ldl 

rr2,rr4 

multi 

rq4 , rr2 

sral 

rr4, #4 

ldl 

rr2 ,  rr4 

rat 

END  _mul_mant 

_div_mant  PROCEDURE 
ENTRY 


ldl 

rr2,rr4 

ldl 

rr4 , rr6 

ldl 

rr6, #0 

divl 

rq4 , rr2 

ldl 

rr2 , rr6 

srll 

rr2, #8 

ret 

END  div  mant 


!  positive  ! 


!  positive  ! 
!  negative  ! 


!  setup  to  call  unstrip  ! 
i  resulting  mantissa  in  rr8  ! 

!  sum  of  exp  in  rl3  ! 

!  sign  in  rl2,  0  if  pos,  ff  if 
!  reforms  the  product  into  ! 

!  a  32  bit  fp  number  i 
!  done  ! 


GLOBAL 


! 


unsplit  PROCEDURE 
ENTRY 

1  enter  this  routine  with  cmantissa  in  rr8  and  cexp  in  r!3  ! 
1  sign  in  rl2  ,  0  if  pos  and  ff  if  neg  ! 

!  returns  result  in  rr2  1 


fpadlO: 


Id 

ldl 

rO,  #0 
rr2,#0 

1 

o 

N 

•H 

testl 

ret 

rr8 

z 

1 

already  done  if  zero  ! 

fpadll: 

ldl 

rr2 , rr8 

1 

rr2  is  cmant  ! 

and 

clr 

r2, #%ff00 
r3 

1 

keep  only  upper  bits  1 

cpl 

rr2 , #%1000000 

1 

(see  if  normalized)  ! 

jr 

z ,  fpadl4 

I 

go  if  equal  to  01000000  ! 

cp 

ro,#32 

1 

make  sure  rO  not  equal  to  32 

jr 

z , fpadl4 

1 

else  leave  the  loop  ! 

cpl 

rr8, #%1000000 

1 

see  if  bigger  or  smaller  ! 

jr 

It, fpadl2 

1 

go  if  smaller  ! 

sral 

rr8, #l 

1 

divide  mantissa  ! 

inc 

rl3 

1 

and  add  one  to  exponent  ! 

jr 

fpadl3 

I 

skip  next  part  ! 

fpadl2 : 

slal 

rr8 , #l 

1 

multiply  mantissa  by  2  ! 

dec 

rl3 

1 

and  subtract  one  from  expone 

fpadl3 : 

inc 

ro 

1 

add  one  to  rO  ! 

jr 

fpadll 

1 

loop  till  normalized  ! 

fpadl4 : 

cp 

rl3 , #-31 

1 

see  if  underflow  t 

jr 

gt, fpadlS 

1 

go  if  not  ! 

ldl 

ret 

rr2 ,  #0 

1 

else,  underflow  error  ! 

fpadl5 

cp 

rl3, #31 

1 

see  if  overflow  ! 

jr 

It, fpadl7 

1 

go  if  not  I 

ldl 

rr8, #%3effffff 

1 

else  is,  and  gets  max  value 

cp 

rl2 , #%f f 

1 

see  if  negative  l 

jr 

nz, fpadl6 

1 

go  if  positive  ! 

or 

r8 , #%8000 

I 

else,  set  sign  bit  ! 

fpadlS: 

ldl 

ret 

rr2 , rr8 

I 

return  with  limited  result  ! 

fpadl7 : 

ldl 

rr2 , rr8 

t 

get  mantissa  into  rr2  ! 

( 

and 

r2, #%00ff 

!  clear  exponent  part  ! 

S 

cp 

rl2,#%ff 

!  see  if  negative  ! 

j 

jr 

nz, fpadlS 

!  go  if  positive  ! 

1 

or 

r2, f%8000 

!  or  in  sign  bit  ! 

c 

fpadlS: 

jj 

add 

rl3 , #32 

!  add  bias  to  exponent  ! 

k 

Id 

r4,rl3 

1 

exb 

rh4 ,  rl4 

I 

Id 

rl3,r4 

| 

or 

r2 , rl3 

!  now,  word  is  complete 

ret 

H 

END  unsplit 

GLOBAL 

fp_div  PROCEDURE 
ENTRY 


!  rr2  contains  bit  encoded  data  to  divide  by  rr4.  ! 
!  this  routine  destroys  all  other  register  data  ! 

1  and  returns  the  answer  in  rr2  .  1 


fpdivl: 


fpdiv2 : 


ex 

r3,r5 

ex 

r2,r4 

ldl 

argl , rr2 

!  save  dividend  ! 

ldl 

arg2 , rr4 

!  save  divisor  ! 

cpl 

rr4, #0 

!  if  zero  then,  ! 

jr 

nz , fpdivl 

J  return  zero,  else 

ldl 

rr2 , #0 

!  result  is  zero  ! 

ret 

1  done  ! 

cpl 

rr2, #0 

!  if  zero  then,  ! 

jr 

nz , fpdiv2 

1  return  max,  else  : 

ldl 

rr2 , #%3ef f fff f 

!  result  is  max  ! 

ret 

!  done  ! 

call 

split 

!  mask  out  exp'  and 

s  exp 

and  rrlO  is  mant  of 

divisor  ! 

s  exp 

and  rr8  is  mant  of 

dividend  ! 

cpl 

rrlO, #0 

!  if  zero  then  ! 

jr 

nz, fpdiv3 

!  return  max',  else  ; 

ldl 

rr2, #%3effffff 

!  result  is  max  ! 

ret 

e  !pdi  cpl  rr8,#0 

jr 

nz, fpdiv4 

!  return  zero,  else 

fpdiv4: 


ldl 

ret 


rr2, #0 


!  result  is  zero  1 
!  done  ! 


cpl 

jr 

sral 

inc 

jr 

rr8 , rrlO 

It, fpdivS 
rr8,*l 
rl3, #1 
fpdiv4 

! for  mant  div  ! 

!  if  dividend  »>  divisor  then, 
!  divide  dividend  man  by  2  ! 
i  bump  up  the  exp  ! 

!  try  till  true  ! 

f pdivS : 

ldl 

ldl 

call 

rr6 , rr8 

rr4,rno 

_div_mant 

!  set  up  to  divide  the  mant  l 
!  by  one  another  ! 

!  returns  result  in  rr2  ! 

Id 

sign,  #0 

!  start  test  for  sign  ! 

testl 

jr 

testl 

jr 

jr 

argl 

It, fpdiv6 
arg2 

It, fpdiv7 
fpdivs 

!  check  to  see  if  ! 

! result  is  positive  ! 

I  or  neg  and  set  sign  flag  1 
!  accordingly  ! 

fpdiv6: 

testl 

jr 

jr 

arg2 

gt, fpdiv7 
fpdivs 

fpdiv7 : 

Id 

sign, #%ff 

!  neg  ! 

fpdivs : 

ldl 

sub 

nop 

rr8 ,  rr2 
rl0,rl2 

!  set  up  for  unsplit  ! 

!  subtract  exponents  ! 

ldP 

call 

rl2 , sign 
unsplit 

!  still  setting  up  for  unsplit 
!  result  in  rr2  ! 

ret 


END  fp_div 


A- 38 


fp_int  PROCEDURE 


ENTRY 

!  rr2  contains  number  to  return  integer  part  of  in  rr2  ! 


fpintl: 


fpint2 : 


fpint3 : 
fpint4 : 


f pint 5 : 


fpinte : 


fpint7 : 

re 

END  fp_int 


ldl 

argl, rr2 

1 

save  off  argument  ! 

call 

split 

• 

resulting  mantissa  in  rrlO, 

Id 

sign, #0 

[ 

determine  the  sign  ! 

testl 

argl 

jr 

pi, fpintl 

I 

go  if  positive  ! 

Id 

sign, #%ff 

1 

else,  flag  as  negative  ! 

cp 

rl2 , #0 

1 

if  exp  <  0,  then  int(argl)=0 

jr 

ge, fpint2 

1 

go  if  exp  >  0  ! 

ldl 

rr2 , #0 

1 

else,  result  is  zero  ! 

ret 

cp 

rl2, #31 

1 

if  exp  >  31  then  overflow  ! 

jr 

le, fpint3 

1 

go  if  no  overflow  ! 

ldl 

rr2, #%7ff fffff 

1 

rr2  gets  max  positive  value 

cp 

sign, #%ff 

l 

see  if  sign  <  0  ! 

ret 

nz 

1 

done  if  positive  ! 

addl 

rr2, #1 

1 

else  make  max  negative  %8000 

ret 

1 

and  return  ! 

ldl 

rr2, #0 

1 

zero  accumulator  ! 

cp 

rl2 , #0 

! 

while  exp  >=  0  ! 

jr 

It, fpinte 

t 

go  if  exp  <  0  ! 

addl 

rr2 , rr2 

i 

double  accum  1 

bit 

no,  #8 

i 

check  bit  of  mant  ! 

jr 

z, fpints 

i 

go  if  bit  is  zero  ! 

addl 

rr2, #1 

t 

increment  accum  ! 

and 

rlO, #%ff 

i 

clear  bit  ! 

addl 

rrio, rrlO 

i 

double  mant  ! 

dec 

rl2 , #1 

i 

decrement  exp  ! 

jr 

fpint4 

i 

loop  while. . .  ! 

cp  . 

sign, #%f f 

if  sign  <>  0  ! 

jr 

nz, fpint7 

i 

then,  negate  result  ! 

ldl 

rr8, #0 

t 

use  rr8  ! 

subl 

rr8 ,  rr2 

i 

make  neg  ! 

ex 

r2,r8 

ex 

r3 ,  r9 

i 

now  result  in  rr2  ! 

ret 

i 

end  of  fp_int  ! 

1 


W*' 


fp_frac  PROCEDURE 


ENTRY 


>  fpfrcl: 

f 

I 

> 

I  fpfrc2: 


! 


!  rr2 

is  fp  number  input, 

rr2  is 

fp  fractional  output  ! 

ldl 

argl,rr2 

testl 

rr2 

jr 

nz, fpfrcl 

i 

go  if  input  is  non  zero  ! 

ldl 

rr2, #0 

i 

else,  return  zero  as  result 

ret 

call 

split 

i 

rrlO  is  mant,  r!2  is  exp  ! 

cp 

rl2,#-l 

i 

if  exp  <*  -1  then  already  a 
go  if  >  -1  ! 

jr 

gt, fpfrc2 

i 

ldl 

ret 

rr2 , argl 

i 

already  fraction! 

cp 

rl2 , #-l 

i 

while  exp  >  -1  . . .  ! 

jr 

le, fpfrc3 

i 

go  if  exp  <»  -1  ! 

dec 

rl2, #1 

i 

exp  "  exp  -1  1 

addl 

rrlO,rrlO 

i 

multiply  mant  by  2  ! 

jr 

fpfrc2 

i 

end  while  ! 

fpfrc3 : 

and  rlO, #%01ff 
Id  sign,#0 

cp  argl, #0 

jr  ge,fpfrc4 

Id  sign,#%ff 

fpfrc4 : 

ldl  rr8 ,  rrlO 

Id  rl3 , rl2 

Id  rl2,sign 

call  unsplit 

ret 

END  fp_frac 


!  mask  out  stuff  >  1  in  mant  ! 

!  see  if  <  0  ! 

!  go  if  >■  0  ! 

!  else,  flag  as  <  0  ! 

!  setup  for  unsplit  ! 


!  end  of  fp_frac  ! 


! 


A-40 


_fp_out 

ENTRY 


fpoutl: 


fpout2 : 


fpout3 : 


PROCEDURE 


Idl  rr2 , rr6 

!  rr2  has  fp  number  of  output 
ldl  argl,rr2 

call  split 

testl  argl 

jr  ge, fpoutl 

ldb  rl7 , #%2d 

call  _out_char 

ldl  rr2 , argl 

res  r2 , #15 

ldl  argl,rr2 


ldl  rr2 , argl 

call  fp_int 

pushl  @rl5 , rr2 

ldl  rr2 , argl 

call  fp_frac 

popl  rr6,§rl5 

pushl  @rl5,rr2 

call  _out_dec 

ldb  rl7 , #%2e 

call  _out_char 

popl  rr2 , @rl5 

Id  dig_count , #0 

testl  rr2 

jr  z,fpout3 

cp  dig_count , #05 

jr  gt , fpout3 

inc  dig_count 

ldl  rr4 , *%23400000 

call  fp_mult 

pushl  @rl5,rr2 

call  fp_int 

ldb  rl7,rl3 

addb  rl7,#%30 

call  _out_char 

popl  rr2,@rl5 

call  fp_frac 

jr  fpout2 


!  copy  C  variable  to  rr2  ! 

I  save  off  ! 

!  rrlO  has  mant,  rl2  has  exp  ! 

!  see  if  number  <  0  ! 

!  go  if  >■<  0  ! 
i  i_i  sign  ! 

!  assembly  routine  ! 

!  get  rr2  back  and  clear  sign 
!  clear  the  sign  bit  ! 

!  back  in  argl  otay  ! 


!  get  argl  back  : 

!  get  integer  part  back  ! 

!  save  on  stack  ! 

!  get  argl  back  ! 

1  get  fractional  part  back  ' 

!  get  integer  back  into  rr6  ! 

!  save  rr2  ! 

!  1  C‘  routine  to  output  intege 
!  1  .  ’  ! 

!  output  it  to  CRT  ! 

!  get  rr2  back  ! 

!  digit  counter  ! 

1  stop  if  goes  to  zero  ! 

!  go  if  fractional  goes  to  zer 

!  stop  after  6  digits  ! 

I  stop  if  6  done  already  ! 


the  number  10  ! 
result  in  rr2  ! 
save  result  of  mult  ! 
get  integer  part  (0-9)  ! 

output  as  digit  1 
ascii  offset  ! 
output  to  screen  ! 
get  rr2  back  I 
result  in  rr2  ! 
loop  till  done  ! 


ret 


!  end  of  fp_out  ! 


dig_count: 

wval  0 

fp_cmp  PROCEDURE 


ENTRY 


!  rr2 

is  compared  with  rr4. 

returns  -1,0,1  for  <,=,>  ! 

ldl 

argl, rr2 

1 

save  args  ! 

ldl 

arg2 , rr4 

1 

i 

call 

split 

1 

1 

rrlo,rl2  is  mant,exp  argl  ! 
rr8  ,rl3  is  mant,exp  arg2  1 

ldl 

rr2 , argl 

1 

get  args  back  ! 

ldl 

rr4 , arg2 

1 

done  ! 

and 

r2, #%8000 

J 

mask  sign  bit  ! 

and 

r4, #%8000 

1 

of  both  arguments  ! 

sub 

r2,r4 

1 

sgn(argl)  -  sgn(arg2)  ! 

jr 

eq, fpcmpl 

1 

go  if  same  sign  ! 

jr 

gt, fpcmp3 

\ 

arg2  <  argl  ! 

jr 

fpcmp2 

1 

argl  <  arg2  1 

fpcmpl : 

cp 

rl2,rl3 

1 

compare  the  exponents  ! 

jr 

eq, fpcmp4 

1 

go  if  equal  ! 

jr 

gt, fpcmp6 

1 

go  if  exp (argl)  >  exp(arg2) 

jr 

fpcmp7 

1 

go  if  argl  <  arg2  ! 

fpcmp2 : 

ldl 

ret 

rr2, #-l 

1 

argl  <  arg2  ! 

fpcmp3 : 

ldl 

ret 

rr2 , #l 

I 

argl  >  arg2  ! 

fpcmp4 : 

subl 

rrlo,rr8 

1 

exponents  same,  test  mantiss 

jr 

eq, fpcmp5 

1 

equal  ! 

jr 

gt, fpcmp6 

1 

argl  >  arg2  ! 

jr 

fpcmp7 

1 

argl  <  arg2  ! 

fpcmp5 : 

ldl 

ret 

rr2 , #0 

1 

equal  ! 

fpcmp6 : 

ldl 

jr 

rr2 , #1 
fpcmps 

fpcmp7  : 

ldl 

rr2 , #-i 

f pcmp8 : 

testl 

ret 

argl 

gt 

if  args  <  0  ,  complement  res 

testl 

ret 

rr2 

z 

ok  if  arg  is  zero  ! 

jr 

jr 

gt , fpcmp2 
fpcmp3 

else  change  1  to  -1,  visa-ve 

_fp_in  PROCEDURE 
ENTRY 


!  gets  characters  into  array,  converts  to  real  in  rr2  ! 


Id 

r7, #string 

1 

address  of  string  storage  ! 

Id 

r6 , #20 

I 

nun  characters  ! 

call 

_in_string 

1 

get  chars  ! 

fp  in  con: 

Id 

mult_factor, #%2000 

» 

1.0  ! 

Id 

mult_f actor+2 , #%0000 

Id 

point, #0 

1 

dec  point  not  encountered  ! 

Id 

ntor, #0 

1 

number  of  digits  to  right  of 

ldl 

rr2 , #0 

1 

zero  result  ! 

Id 

rl4 , #string 

1 

string  pointer  ! 

Id 

in_sign, #0 

1 

sign  is  positive  ! 

fpinl: 

testb 

@rl4 

I 

while  still  more  chars  ! 

jP 

z,  fpin7 

1 

go  if  done  ! 

ldb 

rl0,@rl4 

» 

get  next  character  ! 

cpb 

rlO, #%2e 

1 

see  if  ' . '  ! 

jP 

nz, fpin2 

t 

go  if  not  ! 

Id 

point, #1 

1 

else  flag  point  ! 

fpin2 : 

cpb 

rlO,#'-' 

1 

see  if  ! 

jP 

nz, fpin25 

1 

go  if  not  a  ! 

Id 

in_sign, #1 

1 

else,  flag  as  <  0  ! 

fpin25 : 

cpb 

rlO,#'E' 

1 

see  if  exponent  next  ! 

jr 

nz, fpin3 

1 

go  if  not  ! 

jP 

fpin8 

1 

else,  it  is,  so  process  ! 

fpin3 : 

cpb 

rlo, #'9' 

1 

make  sure  a  valid  character 

jP 

gt, fpin45 
no,# 'O' 

1 

go  if  too  big  ! 

cpb 

jP 

It, fpin45 

1 

go  if  too  small  ! 

test 

point 

1 

see  if  to  right  of  ' . '  ! 

jP 

z, fpin4 

1 

go  if  noc  to  right  yet  ! 

fpin4 : 

test 

point 

1 

don't  mult  by  10  if  '.'  fcun 

jP 

nz, fpin40 

1 

go  if  ' . '  already  found  ! 

push 

@rl5 , rO 

1 

save  character  ! 

ldl 

rr4, #%23400000 

1 

constant  :  10  ! 

call 

fp  mult 

1 

10  *  result  ! 

pop 

r0,@rl5 

1 

get  character  back  ! 

fpin40 : 

subb 

no,  #%3o 

1 

subtract  ascii  bias  ! 

ldb 

rhO, #0 

1 

zero  upper  half  or  rO  ! 

add 

r0,r0 

1 

double  result  ! 

- 

1 

for  indexing  into  contab  ! 

add 

Id 

ldl 


rO,  rO 
rl,  rO 

rr4,contab(rl) 


!  double  again  (4  bytes  each) 

!  transfer  to  rl  for  indexing 
!  get  constant  ! 


!  now,  rr2  is  the  running  result 

rr4  is  the  digit  just  typed  in 


pushl 

@rl5,rr2 

» 

save  rr2  temporarily  ! 

!  save 

running 

result  ! 

ldl 

rr2 ,mult_f actor 

1 

get  mutiplication  factor  ! 

test 

point 

1 

if  dp  found,  divide  by  10  an 

jr 

z, fpin41 

1 

go  if  no  point  found  yet  1 

pushl 

§rl5,rr4 

1 

else,  save  rr4  ! 

ldl 

rr4, #%23400000 

1 

divide  mult_factor  by  10  ! 

call 

fp_div 

1 

do  the  divide  ! 

ldl 

mult  factor, rr2 

1 

new  one  stored  off  ! 

popl 

rr4,@rl5 

1 

get  back  digit  constant  ! 

ldl 

rr2 , mult_f actor 

1 

get  new  mult_faetor  ! 

fpin41: 

call 

fpjnult 

t 

multiply  digit  const  by  mult 

popl 

rr4 , @rl5 

1 

get  what  was  rr2  back  (resul 

call 

fp_add 

I 

add  result  to  digit*mult_fac 

fpin45: 

inc 

rl4 

l 

bump  character  pointer  ! 

jp 

fpinl 

1 

loop  till  done  ! 

fpin7 : 

test 

in_sign 

1 

see  if  <  0  ! 

ret 

z 

1 

finished  if  not  <  0  ! 

or 

r2 , #%8000 

1 

else,  set  sign  bit  ! 

ret 

1 

before  returning  ! 

fpin8 : 

!  here 

if  'E'  was  found  in 

input , 

indicating  exponential  nctat 

pushl 

@rl5,rr2 

i 

save  baselO  mantissa  on  stac 

inc 

rl4 

» 

but  first  bump  char  pointer 

Id 

r2 , in_sign 

i 

get  in  sign  ! 

Id 

r3 , point 

i 

and  point  ! 

pushl 

@rl5, rr2 

i 

and  save  on  stack  1 

ldl 

rr2,mult  factor 

» 

get  mult_factor  ! 

pushl 

@rl5 , rr2 

j 

and  save  on  stack  ! 

Id 

in  sign,#0 

t 

zero  out  in_sign  and  point  ! 

Id 

point, #0 

j 

so  exponent~value  will  be  co 

ldl 

rr2 , #%20000000 

i 

back  to  original  mult_factor 

ldl 

mult  factor, rr2 

ldl 

rr2 ,  #0 

i 

zero  out  accumulator  ! 
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ldl 

call 

ldl 


tpini 
rr6 , rr 2 
_fint 
rr4 , rr2 

popl  rr2 , §rl5 

ldl  mult_f actor, rr2 

popl  rr2,@rl5 

Id  in  sign,r2 

Id  point , r3 

popl  rr2 , @rl5 

fpin9 :  tastl  rr4 

jf  z,fpin7 

3r  gt,fpinlO 

addl  rr4,#l 

pushl  @rl5 , rr4 

ldl  rr4, #%23400000 

call  fp_div 

popl  rrl , @rl5 

jr  fpin9 

fpinlO: 

avail  rr4,  #1 

pushl  @rl5,rr4 

ldl  rr4, #%23400000 

call  fp  mult 

popl  rr4, @rl5 

jr  fpin9 


!  this  is  recursive  I 
I  only  the  integer  part  counts 
1  result  in  rr2  (should  be  onl 
!  put  result  into  rr4  ! 

•  oult_factor  is  back  into  rr2 
!  store  back  off  ! 

!  r2  -  in_sign,  r3  -  point  ! 


I  rr2  has  mantissa  again  1 

•  see  if  exponent  gone  to  2ero 
1  go  if  done  ! 

!  go  if  exp  >  o  ! 

•  increment  exponent  ! 

•  save  exponent  on  stack  ! 

J  divide  result  by  10  l 

•  after  adjusting  exponent  upw 

!  and  loop  ! 


!  decrement  exponent  ! 

!  save  exponent  on  stack  ! 

!  multiply  by  lo  ! 

•  after  adjusting  exponent  dow 

'•  and  loop  1 


end  _fp_in 


point 

ntor: 


wval 


0 


wval  0 

in_sign: 

wval  o 

string: 


array 

[25  word] 

spaces: 

array 

[*byte]  •  ' 

wval 

*0000 

savel: 

array 

[20  word] 

contab: 

wval 

*0000 

1 

0.0 

wval 

*0000 

wval 

*2000 

1 

1.0 

wval 

*0000 

wval 

*2100 

1 

2.0 

wval 

*0000 

wval 

*2180 

1 

3.0 

wval 

*0000 

wval 

*2200 

1 

4.0 

wval 

*0000 

wval 

*2240 

1 

5.0 

wval 

*0000 

wval 

*2280 

1 

6.0 

wval 

*0000 

wval 

*22c0 

1 

7.0 

wval 

*0000 

wval 

*2300 

! 

8.0 

wval 

*0000 

wval 

*2320 

i 

9.0 

wval 

*0000 

mult  factor: 

wval 

*0000 

wval 

*0000 
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_fpcon  PROCEDURE 
ENTRY 


C  callable  procedure  to  convert  a  character  constant  ! 
floating  point  number  into  an  actual  floating  point  number  ! 
usage: 


1 

fp_number  “ 

fpcon("3. 14159") ; 

Id 

r4, # string 

!  address  of  string  area  ! 

ldb 

rlO, @r7 

!  copy  characters  into  string 
!  area  used  by  fpin  ! 

ldb 

@r4,rl0 

!  move  one  ! 

inc 

r7 

inc 

r4 

cpb 

no,  #0 

!  see  if  done  ! 

jr 

nz , fpconl 

!  loop  till  done  (0  found)  ! 

call 

fp_in_con 

!  go  do  it  ! 

ret 

!  the  end  ! 

END  _fpcon 


_fp_out_e  PROCEDURE 
ENTRY 

!  procedure  to  printout  the  variable  in  rr6  in  exponential  (base  10) 


Id 

explO, #0 

\ 

base  ten  exponent  is  zero  fi 

ldl 

rr2 , #0 

cpl 

rr6, #0 

jr 

z , fpoel 

» 

go  if  argument  is  a  zero  ! 

ldl 

tempi, rr 6 

1 

save  argument  ! 

res 

r6, #15 

1 

clear  sign  bit  for  compare  ! 

ldl 

rr4,  #%20000000 

1 

constant  1.00  ! 

call 

fcmp 

1 

rr2  *  -1,0,1  if  <1,-1, >1  ! 

testl 

rr2 

1 

check  sign  of  comparison  ! 

jp 

It, fpoe2 

J 

go  if  <  1  ! 

ldl 

rr  6, tempi 

1 

see  if  >  9  ! 

res 

r6, #15 

ldl 

rr4 ,  #%23200000 

1 

constant  9.00  ! 

call 

fcmp 

1 

same  return  status  as  above 

testl 

rr2 

1 

check  sign  of  comparison  ! 

jP 

gt, fpoe3 

» 

go  if  >  9  '! 

ldl 


rr2, tempi 


fpoel: 


ldl 

rr6 , rr2 

call 

fp  out 

ldb 

rl7,#'E' 

call 

_out_char 

Id 

r7, explO 

exts 

rr6 

test 

r6 

jr 

It, fpoell 

pushl 

@rl5,rr6 

ldb 

rl7, #'+' 

call 

out  char 

popl 

rrs, @rl5 

fpoell: 

call 

_out  dec 

ldl 

ret 

rr2 , #1 

f  poe2 : 

!  rr7 

<  1.0  ! 

ldl 

rr2 , tempi 

fpoe22: 

pushl 

@rl5,rr2 

ldl 

rr6 , rr2 

res 

r6, #15 

ldl 

rr4, #%20000000 

call 

fcmp 

testl 

rr2 

popl 

rr2,@rl5 

jP 

ge, fpoel 

ldl 

rr4, #%23400000 

call 

fp_mult 

dec 

expio 

jr 

fpoe22 

fpoe3 : 

!  rr7 

>  9.0  ! 

ldl 

rr2 , tempi 

fpoe33 : 

pushl 

@rl5,rr2 

ldl 

rr6 , rr2 

res 

r6, #15 

ldl 

rr4, #%23200000 

call 

fcmp 

testl 

rr2 

popl 

rr2,@rl5 

jP 

le, fpoel 

ldl 

rr4, #%23400000 

call 

fp  div 

inc 

expio 

jr 

fpoe33 

END  _fp_ 

_out_ 

tempi: 

~wval 

%0000 

wval 

*0000 

!  print  mantissa  part  i 

!  print  ’E'  ! 

!  load  explO  into  rr6  ! 
1  extend  sign  ! 

!  see  if  >-  0  ! 

!  go  if  <  o  ! 

!  else,  print  •+'  ! 


!  output  the  exponent  1 
!  return  l  ! 


!  get  argument  ! 

!  save  result  I 
!  compare  with  1.0  again  ! 

!  clear  sign  bit  ! 

!  1.0  constant  ! 

!  check  sign  of  result  ! 

!  get  result  back  ! 

!  already  ready  for  output  ! 

!  multiply  by  10  1 

!  and  decrement  exponent  ! 

!  loop  till  done  ! 


!  save  result  1 


!  9.0  constant  ! 


!  divide  by  10.0  ! 


!  loop  till  ready  to  print  ! 
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explO:  wval 
wval 


%0000 

%0000 


_fpconv  PROCEDURE 
ENTRY 


!  converts  long  integer  in  rr6  to  fp  number  in  rr2  ! 


fpconvl : 


ldl 

rr8 , rr6 

!  setup  for  call  to  unsplit  ! 

Id 

rl2, #0 

!  make  positive,  default  ! 

testl 

rr8 

1  if  negative,  make  pos,  set  s 

jr 

ge, fpconvl 

!  go  if  pos  ! 

ldl 

rr2 , #0 

subl 

rr2 , rr8 

!  else,  make  positive  1 

ldl 

rr8 ,  rr2 

Id 

rl2, #%ff 

!  and  flag  as  negative  ! 

Id 

rl3, #24 

!  original  exponent  is  12  ! 

jp 

unsplit 

!  normalize  and  return  ! 

END  _fpconv 


END  fp  subs 


A-49/(A-50  Blank) 


APPENDIX  B 
ADDISP 


B-l/(B-2  Blank) 


/*  program  co  input  and  display  data  from  the  A/D  board  */ 

/*  external  references  */ 

extern  int  in_char() ,in_int() ,wait_char() ,out_int() ,mess_c() ; 
extern  int  ad_in_a(),  ad_in_b(); 
int  ch_array [ 8 ] , count2 ; 
int  adin ( 30 ] , *po inter ; 

/*  local  variables  */ 

int  nua_chans , count ; 
char  con_dis,c,cntrl; 

main  () 

( 

out_crlf() ; 

mess_c("A/D  input  and  display  program  "); 
out_clrf () ; 
out_clrf () ; 

mess_c( "Display  how  many  channels  (0-7)  :*); 
num_chans  -  in_inc(); 
if  (num_chans  !-  0)  ( 

if  (num_chans  >7)  num_chans  -  7; 
out_clrf() ; 

mess_c( "Number  of  channels  set  to:"); 
out_inc(num_chans) ; 
out_crlf() ; 

for  (count-1 ;count<-num_chana ;count++)  { 
mess_c("coluan") ; 
out_int(count) ; 
mess_c("  "); 
ch_array [ count ) -in_int ( ) ; 
out  clrf () ; 

)  /*  for  */ 
out_clrf() ; 

mess_c("Continuout  or  Discrete  sampling  (C/D)  :"); 
con_dis-wait  char(); 

if  T(con_dis  !-'C')  &  (con_dis  !-  ’D'))  con_dis  -  'D' ; 
out_clrf ; 

mess_c( "Sampling  set  to  :’); 
out_char(con_dis) ; 
out_clrf () ; 

/*  the  following  is  the  main  routine  */ 
c-count2-0 ; 

while  ( ( (cntrl-in_char() )  !-  0X1B  &  c  !-  0X1B))  ( 
if  ((cntrl— 'C')  |  (c—  'C'))  con  dis  -'C'; 
if  ((cntrl— 'D')  |  (c—  'D'))  con'dis  -'D'; 
if  (count2— 15)  (  /*  redisplay  channel  numbers  */ 

out_clrf() ; 

for  (count-1 ;count<-num_chans;count-w-)  ( 

mess_c( "chan: ") ; 

out_int (ch_array( count ] ) ; 

mess  c("  “); 

)  /*~for  */ 
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out_clrf () ; 

for  (count-1 ; count<-nua_chans ; count++) 

mess_c(" - ")  ; 

out_clrf() ; 
out_clrf () ; 
count2-0 ; 

)  /*  if  */ 

count2++; 
pointer  -  adin; 
ad_in_a(pointer , 12, 1) ; 
pointer-adin+12 ; 
ad_in_b(pointer,12,l) ; 
for  (count-1 ;count<-nua_chana;count++)  ( 
out_int ( adin [ ch_array [ count ] ] ) ; 
mess_c("  ■); 

}  /+  for  */ 
out_clrf() ; 

if  ((cntrl— 'P')  |  (con  dis  —  'D'))  ( 
aess_c(’--PAUSED--"); 
c-wait_char() ; 
out  clrf(); 

)  7*  if  V 

)  /*  while  */ 

)  /*  if  */ 

/*  main  */  ) 
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DARAMP 
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/* 

**  Routine  Co  output  a  ramp  to  the  D/A's 

*/ 


extern  int  in_char() ,ouc_crlf() , in_int() ,mess_c() ,da_ouc() ; 

extern  int  cio_unic(); 

start_chan,stop_chan, i , chan , num_chans ; 
ch_ar r ay [ 20 ] , j , data_arr ay [ 1 J , *k ; 
starc_count, stop_count , delta_count ; 
c  ,d; 


cio_unit() ; 
out_crlf  ( )  ; 

mess_c("D/A  ramp  program  "); 
out_crlf  ( )  ; 

mess_c( "Input  start  count  :*); 
start_count-in_int() ; 
out_crlf ( ) ; 

mess_c( "Input  stop  count 
stop_counc-in_int() ; 
out_crlf ( ) ; 

mess_c(" Input  delta  count 
delta_count-in_int() ; 
out_crlf() ; 


/*  get  the  channel  definitions  */ 

mess_c( "Output  to  how  many  channels  ?  (1*10  hex)  "); 
num_chans-in_lnc() ; 

if  ( num_chans  >  16) 
num_chans-16 ; 

if  (num_chans  <  1  ) 
num_chans-l ; 
out  crlf () ; 


for(j-0;  j<-(num_chans-l) ;  j++) 


( 


mess_c( "Enter  channel  number  :"); 
ch_array(j ]-in_inc() ; 
out  crlfQ ; 


for( j-0 ;  j <—15 ;  j++) 


( 


data_arr ay ( 0 ] -0 ; 
da_out(data_array, j , 1) ; 
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/*  main  routine  follows  */ 


mess_c(" starting  ramp  *); 
out_crlf ( ) ; 

while(  ((c-in_char()) !-Oxlb)  &  (d!-Oxlb)  ) 

( 

for ( i-start_count ;  i<-stop_count;  i-t— delta  count) 

( 

for(j-0  ;  j<-(nua_chans-l)  ;  j++) 

( 

da_out(data_array , ch_array [ j ] ,1) ; 
data_array [ 0 ] -i ; 
d-in_char() ; 

) 

) 

) 

)  /*  MAINQ  */ 
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APPENDIX  D 


ADTODA 
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I 


**  ad_co_da.c  : 
** 


program  Co  roucine  an  A/D  channel 
Co  a  D/A  channel 


excern  Inc  da_ouc() ,ad_in() ,mess_c() ,ln_char() ,ouc_crlf() , ln_inc() ; 
excem  inc  ouc_inc()  ,ouC_char() ; 

inc  da_chan , ad_chan , ad In ( 3  0 1 ; 
char  c,d; 

main( ) 

l 

ouc_crlf ( ) ; 

mess_c("A/D  co  D/A  roucing  program  "); 
ouc_crlf () ; 
ouc_crlf () ; 

mess_c("A/D  channel  number  :*); 
ad_chan  -  in_inc ( ) ; 
ouc_cr If ( ) ; 

mess_c("D/A  channel  number 
da_chan  -  ln_lnc(); 
ouc_crlf ( ) ; 

if(  da_chan>15  ) 
da_chan  -  15; 

mess_c( "Roucing  scarced 
ouc_crlf() ; 
ouc_crlf () ; 

while (  (c-ln_char() ) !-Oxlb  ) 

( 

ad_ln(adln) ; 

da_ouc (da  chan , adin [ ad_chan ] ) ; 

) 

ouc_crlf () ; 
ouc_crlf() ; 

]  /*  MAINO  */ 
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APPENDIX  E 


DSCOUT 


E-l/CE-2  Blank) 


/* 

**  Program  Co  cesc  che  discrece  oucpuc 

** 

*/ 

excem  inc  in_char() touC_lnC() ,mess_c() ,ouc_crlf() ; 

excem  Inc  cio_unic()  ,cio_ouca()  ; 

inc  b,i; 

char  c ; 

main() 

l 

cio_uniC() ; 

mess_c( "Discrece  oucpuc  Case  roucine  *); 

ouc_crlf(); 

ouc_crlf() ; 

mess_c("SCarcing  sequence  "); 
ouc_crlf () ; 

vhlle(  (c-in  char()) !-Oxlb) 

( 

b  -  1; 

while <  (b<-128)  &  ((c-in  char () ) !-Oxlb)  ) 

( 

cio_ouca(b) ; 
b  *—  2 ; 

for ( i-0 ;  i<-32766;  i++) 

;  /*  delay  */ 

) 

/*  now  blink  and  inverc  */ 
b  -  1; 

while(  (b<-128)  &  ((cin-in  char() ) !-Oxlb)  ) 

( 

i  -  b'Oxff; 
cio  ouca(i) ; 
b  *-  2; 

for (i-0;  K-32766;  i++) 

;  /*  delay  */ 

) 

) 

)  /★  HAINO  */ 
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APPENDIX  F 

ACTIVITY 
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/*  routine  to  check  out  the  activity  circuitry  */ 


extern  int  cio_init() ,cio_outb() ,cio_outc() ,mess_c() ,out_crlf () 
int  i, j ,k,data[3] ,*point; 
char  c.d.e; 

main() 

{ 

cio_init() ; 
out_crlf () ; 

mess_cCStarting  activity  test..."); 

out_crlf() ; 

for  ( j— 0 ;  j<-3;  j++) 

( 

mess_c("D/A  channel  "); 
out_int(j ) ; 
mess_c("  test"); 
out  crlf () ; 

for- (i-0;  ic-16384;  i++) 

{ 

data [ 0 ] —0x4000 ; 
point-  data; 

da  out (point, j , 1) ;  /*  address-point,  channel- j ,  data's-1 

) 

) 

out_crlf () ; 

mess_c("All  channels  "); 
out_crlf () ; 

while  (1) 

{ 

for  (1-0;  i  <-  32766;  i-M-) 

( 

c  -  in  char() ; 

J  -  0;- 

point  -  data; 
da_out(point, j ,4) ; 

if (  c— Oxlb  ) 
break; 

) 

if(  c— Oxlb  ) 
break; 

> 

/*  reset  all  the  activity  lights  */ 

)  /*  main  */ 
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